Hello Again everyone,

Hopefully some one can help me out again. The problem is I had this code (below) working in my office, but not the one @ home. Could it be my copy paste may have lost something. The offensive code appears to be in the line formated in red. Any and all help is greatly appriciated


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
PS Folk754, Thanks for the tip on rolling up sheets works great