Vba spørgsmål

Hej.

Jeg står med en lille udfordring, som jeg bare ikke kan løse.

Jeg har brug for at kunne hente data fra 3 excel ark, hvor de skal åbne, opdatere en ark, gemme og lukke. Jeg har prøvet at sætte flue ben i, opdater når filen åbnes, men det er som om, at det ikke virker.

Åbne, gemme og lukke koden virker fint, men når jeg tilføjer en opdater kode, så laver den fejl - jeg har fjernet den kode som opdater ark.


Håber I kan hjælpe mig.

Sub Produktionsoverblik()

Application.DisplayStatusBar = True

Application.StatusBar = "Henter data - Vent venligst... "

Application.ScreenUpdating = False

Workbooks.Open "F:\Fælles\Rådata ark\XXXX.xlsx"
Workbooks("XXXX.xlsx").Save
  Workbooks("XXXX.xlsx").Close

Workbooks.Open "F:\Fælles\Rådata ark\overblik\XXXX.xlsx"
Workbooks("XXXX.xlsx").Save
  Workbooks("XXXX.xlsx").Close


HER FRA OG NED AD - HAR JEG BRUG FOR HJÆLP
 
Workbooks.Open "F:\Fælles\Rådata ark\overblik\XXXX.xlsx"
Workbooks("XXXX.xlsx").Save
  Workbooks("XXXX.xlsx").Close
   

Workbooks.Open "F:\Fælles\Rådata ark\overblik\XXXX.xlsx"
Workbooks("XXXX.xlsx").Save
  Workbooks("XXXX.xlsx").Close
 
Workbooks.Open "F:\Fælles\Rådata ark\overblik\XXXX.xlsx"
Workbooks("XXXX.xlsx").Save
  Workbooks("XXXX.xlsx").Close

Workbooks.Open "F:\Fælles\Rådata ark\XXXX.xlsx"
Workbooks(XXXX.xlsx").Save
  Workbooks("XXXX.xlsx").Close
 

  Application.ScreenUpdating = True



Range("I3").Value = Now

Application.StatusBar = Falsk

Application.StatusBar = "Klar"
If ActiveSheet.AutoFilterMode Then ActiveSheet.ShowAllData
  'Variable Declaration
    Dim OutPut As Integer
ActiveWorkbook.RefreshAll
    'Example of vbOKOnly

 
         
    OutPut = MsgBox("Tak for din tålmodighed - om 10 sek er arken klar!", vbOKOnly, "XXXX")
    If ActiveSheet.AutoFilterMode Then ActiveSheet.ShowAllData