Is It Possible to Update Cells of Multiple Files?

thank you so much! you just made my day :D
one last question though: how can I update a cell instead of the header?

 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 here your 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))
          CELL OF THE OPENED FILE = ActiveWorkbook.Sheets("Tabelle1").Range("=A20")      Next i
      
      wb.Close SaveChanges:=True
   Next
   Application.ScreenUpdating = True
End Sub