Excel Datei automatisch öffnen

Hallo liebe Excel-Profis,

bräuchte bitte Eure Hilfe. Ich hab folgenden Code

   Sub EmailMitZelle()
       Dim OutlookApp As Object
       Dim OutlookMail As Object
       Dim Pfad As String
       Dim Wbk As Workbook
       Dim Zelle As Range
       
       'Dateiauswahl öffnen
       With Application.FileDialog(msoFileDialogOpen)
           .AllowMultiSelect = False
           .Filters.Clear
           .Filters.Add "Excel-Dateien", "*.xlsx"
           .InitialFileName = "C:\Users\TestPerson\Desktop\Test"
           If .Show = True Then
               Pfad = .SelectedItems(1)
           Else
               Exit Sub
           End If
       End With
       
       'Öffnen der ausgewählten Excel-Datei
       Set Wbk = Workbooks.Open(Pfad)