Undgå at ændre aktiv doc. når man vælger gem som

Ja, det ser sådan ud og er bare en macro jeg har optaget:

Sub test2()
    ActiveDocument.SaveAs FileName:="test3.doc", FileFormat:=wdFormatDocument, _
        LockComments:=False, Password:="", AddToRecentFiles:=True, WritePassword _
        :="", ReadOnlyRecommended:=False, EmbedTrueTypeFonts:=False, _
        SaveNativePictureFormat:=False, SaveFormsData:=False, SaveAsAOCELetter:= _
        False
    RecentFiles(2).Open
    Windows("test3").Activate
    ActiveWindow.Close
End Sub

Sub MakroGem()

navn = ActiveDocument.Name
ActiveDocument.SaveAs FileName:="DinDoc.doc"
Application.Documents.Open navn
Documents(navn).Activate

End Sub

Tak for det.