Sub hhh ()

Dim wb As Workbook
Dim myPath As String
Dim myFile As String
Dim myExtension As String
Application.ScreenUpdating = False
Application.EnableEvents = False
Application.Calculation = xlCalculationManual

myPath = "G:\1\"
myExtension = "*.xls*"
myFile = Dir(myPath & myExtension)
  
  Do While myFile <> ""
      
Set wb = Workbooks.Open(Filename:=myPath & myFile)
      
wb.Worksheets(1).Select

On Error Resume Next

wb.Worksheets(1).Cells(3, 5).Value = 345
Call aaa
wb.Close SaveChanges:=True
      
myFile = Dir

Loop

ResetSettings:
    Application.EnableEvents = True
    Application.Calculation = xlCalculationAutomatic
    Application.ScreenUpdating = True

End Sub

wb.Close SaveChanges:=True

<> ""

Sub AttachFile_test()
Filenames = GetFilePath()
End Sub
Function GetFilePath(Optional ByVal Title As String = "", _
Optional ByVal InitialPath As String = "\", _
Optional ByVal FilterDescription As String = "", _
Optional ByVal FilterExtention As String = "*.*") As String
On Error Resume Next

With Application.FileDialog(msoFileDialogOpen)
.ButtonName = "Âûáðàòü": .Title = Title:
.InitialFileName = GetSetting(Application.Name, "GetFilePath", "folder", InitialPath)
.Filters.Clear: .Filters.Add FilterDescription, FilterExtention
.AllowMultiSelect = True

If .Show <> -1 Then Exit Function

For Each vrtSelectedItem In .SelectedItems

folder$ = Left(.SelectedItems(1), InStrRev(.SelectedItems(1), "\"))
SaveSetting Application.Name, "GetFilePath", "folder", folder$

Set wb = Workbooks.Open(vrtSelectedItem)
wb.Worksheets(1).Select
On Error Resume Next
Call ob
wb.Close SaveChanges:=True

Next vrtSelectedItem

End With
End Function