title: VBA Code runs well on 2 of 3 machines - no clue why
body: <p>VBA is driving me crazy and I hope someone got a hint for me.</p>
  
  <p>Im running this code for 2 weeks now on 2 different computers (Office 2013 and 2016) without any errors. Now, on the third computer (where its actually needed the most) it throws errors, that I just dont understand. </p>
  
  <p>I throw in the code first:</p>
  
  <pre><code>Private Sub rental_contract_Click()
  Call CostEstimation
  Dim appExcel As Excel.Application
  Dim wrkBook As Excel.workBook
  Dim wrkSheet As Excel.Worksheet
  Set appExcel = New Excel.Application
  Set wrkBook = appExcel.Workbooks.Open(CurrentProject.Path &amp; "mietvertrag.xlsm")
  Set wrkSheet = wrkBook.Worksheets("Tabelle1")
  
  appExcel.Visible = True
  wrkBook.Worksheets("Tabelle1").Activate
      With wrkBook.ActiveSheet
      .Range("G7") = Me.CustomerName
      .Range("G8") = Me.Company
      .Range("G9") = Me.StreetAdress
      .Range("G10") = Me.City
      .Range("G11") = Me.Telephone
      .Range("G12") = Me.Email
      .Range("G13") = Me.Pers_Nr
      .Range("G14") = Me.Licence_Plate
      .Range("G27") = Me.OperatingHours
      .Range("H27") = (Me.txtcost.Value - Me.bail.Value) * 1.19
      .Range("C27") = Me.machine &amp; " " &amp; Me.model
      .Range("C42") = Me.bail
      .Range("F22") = Me.DateFrom
      .Range("F24") = Me.DateTo
  
      End With
  Set wrkSheet = Nothing
  Set wrkBook = Nothing
  Set appExcel = Nothing
  
  Call savecopy
  End Sub
  </code></pre>
  
  <p>and (the problematic part)</p>
  
  <pre><code>Function savecopy()
  
  Dim appExcel As Excel.Application
  Dim wbkBook As Excel.workBook
  
  Dim FileName As String
  Dim Path As String
  
  Set appExcel = GetObject(, "Excel.application")
  Set wbkBook = appExcel.ActiveWorkbook
  
  'save the rental contract
  
  Path = "path-here"
  FileName = Me.order &amp; " " &amp; Me.CustomerName &amp; ".xlsm"
  wbkBook.SaveCopyAs FileName:=Path &amp; FileName '&lt;---------------------------
  appExcel.DisplayAlerts = False
  wbkBook.close
  
  'create an empty bill
  
  CPath = "path-here"
  Set appExcel = New Excel.Application
  Set wbkBook = appExcel.Workbooks.Add
  appExcel.Visible = False
  wbkBook.SaveCopyAs FileName:=CPath &amp; FileName
  wbkBook.close
  
  're-open previously saved rental contract
  
  Set appExcel = New Excel.Application
  Set wrkBook = appExcel.Workbooks.Open(Path &amp; FileName)
  Set wrkSheet = wrkBook.Worksheets("Tabelle1")
  appExcel.Visible = True
  
  End Function
  </code></pre>
  
  <p>The third computer is trying to tell me, that wbkBook (at the arrow) is = Nothing. Resulting in access errorcode 91. 6 rows above, I tell him what wbkBook is..</p>
  
  <p>How is it possible? Same scenario on all computers, 2 succeed, 1 fail?</p>
  
  <p>Thanks in advance.. i'm getting serious headache</p>