Is It Possible to Update Cells of Multiple Files?

this didnt work either

i'll post the whole macro once again, maybe you can spot the error? :-/

Sub CellInHeader()
   Dim ws As Worksheet
   Dim hdr As String
   Dim arrSheets
   Dim myPath As String
   Dim objFso As Object
   Dim myFolder As Object, myFile   As Object
   Dim wb As Workbook, i As Integer
   
   Set objFso = CreateObject("Scripting.FileSystemObject")
   
   'set the array of sheets to be worked on
   'list the sheet names here
   arrSheets = Array("Tabelle1", "Tabelle2", "Tabelle3")
   'folder with files to update
   myPath = Range("A19")  'Insert Path
   
   'turn off screen updating to speed up the macro
   Application.ScreenUpdating = False
   
   Set myFolder = objFso.GetFolder(myPath).Files
   For Each myFile In myFolder
      Set wb = Workbooks.Open(myFile)
      
      For i = LBound(arrSheets) To UBound(arrSheets)
          Set ws = wb.Sheets(arrSheets(i))
         
          ws.Range("A2") = ActiveWorkbook.Sheets("Tabelle1").Range("A20")
      Next i
      
      wb.Close SaveChanges:=True
   Next
   Application.ScreenUpdating = True
End Sub