Hi Mjack59_59,

simply adapt the code, changing it from
Quote Originally Posted by Mjack59_59 
Application.DisplayAlerts = False
Application.EnableEvents = False
.SaveCopyAs ThisWorkbook.Path & "\backup\" & _
Left(ThisWorkbook.Name, InStr(1, LCase(ThisWorkbook.Name), ".xlt") - 1) & _
" - " & Format(Now, "m-d-yy h:mm a/p") & ".xls"
.save
Application.DisplayAlerts = True
Application.EnableEvents = True
to

With Application
   .DisplayAlerts = False
   .EnableEvents = False
   .SaveCopyAs ThisWorkbook.Path & "\backup\" & _
      Left(ThisWorkbook.Name, InStr(1, LCase(ThisWorkbook.Name), ".xlt") - 1) & _
" - " & Format(Now, "m-d-yy h_mm a/p") & ".xls"
   .Save
   .DisplayAlerts = True
   .EnableEvents = True
End With