VBA: Macro udfører ikke resterende kode efter .Close

Hej.

Jeg forsøger at lave en lille arkiverings funktion. Planen er at filen skal gemmes under et nyt navn vha. SaveAs eftersom CopyFile funktionen jo ikke kan kopiere en fil som er åben. Efter den nye fil er oprettet, skal den så vende tilbage til det originale dokument for at man ikke kommer til at arbejde videre i den arkiverede fil. Problemet er så bare at efter jeg lukker backup filen, så udføres resten af min macro ikke. Den stopper simpelthent bare. Måske har det noget at gøre med at man jo lukker det dokument som macroen jo egentlig blev kaldt fra!?

Nedenstående kode kan bruges som test. Har prøvet at sætte "CreateBackup" til True på .SaveAs, men det ændrer ikke noget. MsgBox funktionen bliver aldrig udført. Hvordan kan man få den til at udføre resten af koden?

<--Kode start-->

Dim SourceFile, SourceDoc, ArchivedFile As String

'Gem stien på den originale fil
SourceFile = ActiveWorkbook.Path & "\" & ActiveWorkbook.Name
'Gem selve filnavnet på den originale fil
SourceDoc = ActiveWorkbook.Name
'Gem den kopi af filen under et nyt navn
ActiveWorkbook.SaveAs ActiveWorkbook.Path & "\backup_" & ActiveWorkbook.Name
'Gem selve filnavnet på den kopierede fil
ArchivedFile = ActiveWorkbook.Name
'Åben den originale fil
Workbooks.Open FileName:=SourceFile
'Bring den originale fil i fokus
Windows(SourceDoc).Activate
'Luk den kopierede fil
Workbooks(ArchivedFile).Close False

'ALT HVAD DER STÅR HEREFTER BLIVER IKKE UDFØRT!!!
MsgBox "Arkivering udført"

<--Kode slut-->

Evt. anden fremgangsmåde kan nok også accepteres :)

På forhånd tak.