Kopiere aktivt ark til ny fil i anden mappe

forslag:
Rem Koden anbringes i ThisWorkbook
Sub sikkerhedsKopi()
Dim aktiveArkNavn, tidsstempel As String

    aktiveArkNavn = ActiveSheet.Name
    Sheets(aktiveArkNavn).Select
    Sheets(aktiveArkNavn).Copy
   
    tidsstempel = CStr(Now)
    tidsstempel = Replace(tidsstempel, ":", "_")
    ActiveWorkbook.SaveAs "c:\BackUp\" + arknavn + tidsstempel + ".xls"
End Sub

Noget nyt?