Sub NTbackupDatedSimple()
' Paul Beverley - Version 30.04.25
' Backs up the Normal template with date and time

backupFolder = "Backup"
nmlName = ThisDocument.Name

If nmlName <> "Normal.dotm" Then
  Beep
  CR2 = vbCr & vbCr
  myPmt = "Possible issue with Normal file (" & nmlName & ")" & CR2
  myPmt = myPmt & "Have you copied the macro text somewhere safe?" & CR2
  myResponse = MsgBox(myPmt & "Continue with backup?", _
     vbQuestion + vbYesNoCancel, "NTbackupDatedSimple")
  If myResponse <> vbYes Then
    MsgBox ("For safety, copy all the VBA text and save it to a new Word file. OK?")
    Exit Sub
  End If
End If

NTname = NormalTemplate.FullName

' Mac or PC? Use correct delimiter
If InStr(NTname, "\") = 0 Then
  backupFolder = backupFolder & "/"
Else
  backupFolder = backupFolder & "\"
End If

' Add date & time
mySuffix = " " & Format(Now, "_YYYY-MM-DD_hh_mm")
newName = Replace(NTname, "Normal", backupFolder & "Normal" & mySuffix)

ThisDocument.SaveAs newName
Beep
MsgBox ("Backup completed.")
End Sub