Excel til Acces og retur, opdatering med makro

Jeg trækker en tabel ud fra SAP, og ind i Excel. Det gør jeg ved en makro, og det fungerer.
Så er tabellen sammenkædet til en tabel i Access (2007) og bliver behandlet i et par forespørgsler.
I excelarket har jeg så en forbindelse til forespørgsle, som jeg skal bruge, så den henter tabellen tilbage i et nyt ark, og også laver en graf
Det er så meningen at brugeren kun skal hente tabellen fra SAP, og så opdatere hele molevitten i excelarket på en gang ved at trykke på en knap, med en makro tilknyttet. Acces fungerer bare i baggrunden.
Jeg kan bare ikke få den sidste opdatering fra Acces til Excel til at virke. Hvis jeg manuelt går ind og vælger forbindelse og opdater, så virker det. Hvis jeg optager en makro der gør nøjagtigt det samme, så virker det ikke.
Og jeg får denne besked " Denne handling annullerer en ventende Opdater data-kommando. Vil du fortsætte ?"
Så hvor er det lige kæden hopper af

Lige nu ser hele makroen således ud og knappen, som er på fanen "Kjeltec", er koblet til Sub SletHentOpdater() og det afføder ovennævnte besked 2 gange. Hvis jeg flytter lidt om på refresh'erne få jeg en debug. Og det hele virker, altså lige bortset fra opdateringen fra Access til Excel



Sub VælgSide2()

    Sheets("Sap_Udtræk").Select
   
End Sub

Sub SletStamdata()
   
    Range("Kjeldahl").Delete
    Range("a5").Select
   
End Sub

Sub HentFraSAP()

    Windows("Regneark i ALVXXL01 (1)").Activate
    Selection.CurrentRegion.Select
    Selection.Copy
    Windows("MånedligKontrolKjeltec.xlsm").Activate
    Range("a5").Select
    ActiveSheet.Paste
   
End Sub

Sub Opdater()

    Range("a5").Select
    Range(Selection, Selection.End(xlDown)).Select
    Range(Selection, Selection.End(xlToRight)).Select
    Set omr = Selection
    ActiveWorkbook.Names.Add Name:="Kjeldahl", RefersToR1C1:= _
        omr
    Sheets("Kjeltec").Select
    Range("a5").Select
   
End Sub

Sub VælgSide1()

    Sheets("Kjeltec").Select
    ActiveWorkbook.RefreshAll
    Range("a5").Select
    ActiveWorkbook.Save
   
End Sub

Sub OpdaterConnection()

    ActiveWorkbook.Connections("KjeltecStamdata").Refresh
    ActiveWorkbook.Save
   
End Sub


Sub SletHentOpdater()

VælgSide2

SletStamdata

HentFraSAP

Opdater

VælgSide1

OpdaterConnection

End Sub