If that is the only time it crashes, use it to your advantage
On Error Resume Next Workbooks(Workbooks.Count).Close SaveChanges:=True, Filename:=NewName If Err.Number <> 0 then Workbooks(Workbooks.Count).Close SaveChanges:=False Error = 0
If that is the only time it crashes, use it to your advantage
On Error Resume Next Workbooks(Workbooks.Count).Close SaveChanges:=True, Filename:=NewName If Err.Number <> 0 then Workbooks(Workbooks.Count).Close SaveChanges:=False Error = 0
Please take the time to read the Forum FAQ
Posting Permissions
Reply With Quote