Backup af fil fra VBA macro.

Er justeret lidt:

Sub test1()
Dim sourceWB As Workbook
Dim p As Long
Dim FolderNavn As String, FilNavn As String

'Start med at lave en back-up af arket.
'    MsgBox "Arbejder med filen " & ThisWorkbook.Name

    Set sourceWB = ActiveWorkbook
    FolderNavn = sourceWB.FullName
'    MsgBox FolderNavn
   
    p = InStrRev(FolderNavn, "\")
    FilNavn = Right(FolderNavn, Len(FolderNavn) - p)
    FolderNavn = Left(FolderNavn, p) & "Back-up\" & Format(Date, "YYYY-MM-DD") & " " & FilNavn
'    MsgBox " Nyt navn : " & FolderNavn
   
    Application.DisplayAlerts = False
    sourceWB.SaveAs Filename:=FolderNavn, FileFormat:=xlOpenXMLWorkbookMacroEnabled
   
    sourceWB.Close
    sourceWB.Application.Quit
    Set sourceWB = Nothing
End Sub