Exceldatei beim Öffnen aktualisieren

Public Sub RefreshWorkbooks()
Dim objWorkbook As Workbook
Dim strFolder As String, strThisworkbookName As String
Dim strFilename As String
strFolder = ThisWorkbook.Path & "\"
strThisworkbookName = ThisWorkbook.Name
With Application
.EnableEvents = False
.ScreenUpdating = False
.ShowWindowsInTaskbar = False
End With
strFilename = Dir$(strFolder & "*.xlsm")
Do Until strFilename = vbNullString
If strFilename  strThisworkbookName Then
Set objWorkbook = Workbooks.Open(Filename:= _
strFolder & strFilename, UpdateLinks:=3)
Call objWorkbook.RefreshAll
Call objWorkbook.Close(SaveChanges:=True)
Set objWorkbook = Nothing
End If
strFilename = Dir$
Loop
With Application
.EnableEvents = True
.ScreenUpdating = True
.ShowWindowsInTaskbar = True
End With
End Sub