Private ex As New Excel.Application
 
 
Private Sub cmdMakroStart()    
    ex.Workbooks.Open "Pfad_name_der_Exceldatei"
    ex.ActiveWorkbook.RunAutoMacros xlAutoOpen
End Sub
 
Private Sub Form1_QueryUnload
     If Not ex Is Nothing
          ex.activeWorkbook.Saved = True
          ex.Quit
          Set ex = Nothing
     End if
End Sub