Private Sub Command1_Click()
Rem erstmal Excel wenn nötig starten und der Variablen übergeben
On Error Resume Next
Dim MeinExcel As Excel.Application
Set MeinExcel = GetObject(, "Excel.Application")
If MeinExcel Is Nothing Then
    Set MeinExcel = New Excel.Application
    MeinExcel.Visible = True
    MeinExcel.Workbooks.Add
    MeinExcel.Activate
End If
On Error GoTo 0
 
With MeinExcel
    .Workbooks.Open "c:\program files\port clearance\crewlist.xls"
    Rem hier Deine Anweisungen (alle mit Punkt beginnend)
    .WindowState = xlMaximized
    .Activate
End With
 
Rem Verweis auf Excel freigeben
Set MeinExcel = Nothing
End Sub