Luk med en makro

Er det muligt at ændre denne makro så den også afslutter programmet


Sub Makro2()
'
' Makro2 Makro
' Makro indspillet 17-05-2004 af Asbjørn Bech
'

'
    ActiveSheet.Unprotect
    Range("B2:M64").Select
    Selection.Copy
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    ActiveWindow.SmallScroll Down:=-9
    Application.CutCopyMode = False
    ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
    Range("D8:D9").Select

Dim Sti As String
Sti = "c:\Lager & Faktura\Gl Faktura\"
ThisWorkbook.SaveAs Sti & Sheets("Ark1").[o3] & [d8] & [p3] & [l10].Text
'
    ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
End Sub