[...]
## Setting of path and file name
strActPfad = ActiveWorkbook.Path
strActName = ActiveWorkbook.Name
strBackPfad = "mein Pfad"
strBackup = strBackPfad & strActName & " - Backup " & Date & ".xlsm"
strControl = MsgBox("Backup anlegen?", vbYesNo, "Backup")
If strControl = vbNo Then
Exit Sub
Else
Workbooks(strActName).Save
ChDir strBackPfad
Save as copy
ActiveWorkbook.SaveCopyAs Filename:=strBackup
End If
Else
ChDir strBackPfad
ActiveWorkbook.SaveAs Filename:=strBackup
End If
End If
## Save the workbook under the old name again
ChDir strActPfad
ActiveWorkbook.SaveAs Filename:=strActName
[...]