Alle Dateien ändern, ausgeblendete Tabelle

Sub Oeffnen()
Dim Datei As String
Dim Arbeitsmappe As String
Dim PFAD As String
With Application.FileDialog(msoFileDialogFolderPicker)
.AllowMultiSelect = False
.InitialFileName = "D:\"
.ButtonName = "OK"
.Title = "Ordner auswählen"
.Show
If .SelectedItems.Count  0 Then
PFAD = .SelectedItems(1)
End If
End With
If PFAD  "" Then
Datei = Dir(PFAD & "\" & "*.xls")
Application.ScreenUpdating = False
Application.DisplayAlerts = False
Do While Datei  ""
Application.Workbooks.Open Datei
'ActiveWorkbook.Close True
Datei = Dir()
Loop
Application.ScreenUpdating = True
Application.DisplayAlerts = True
End If
End Sub

Sub test()
Const folderspec = "c:\temp" 'Hier das Verzeichnis, in dem die 100 XLS Dateien liegen - aber  _
keine anderen XLS als die zu Ändernden!
Dim fs, f, f1, fc
Set fs = CreateObject("Scripting.FileSystemObject")
Set f = fs.GetFolder(folderspec)
Set fc = f.Files
For Each f1 In fc
If UCase(Right(f1, 3)) = "XLS" Then 'Excel File gefunden
Call ChangeCell(folderspec, f1.Name)
End If
Next
End Sub

Sub ChangeCell(folder As String, file As String)
Workbooks.Open Filename:=folder & "\" & file
Range("G23").Select
ActiveCell.Formula = "=G22/C8"
ActiveWorkbook.Save
ActiveWorkbook.Close
End Sub