I'm converting a workbook to 2007 from 2003. Luckily all the code
seems to work except for saving the file. From looking through the
help files it seems that the ActiveWorkbook.Save command should be
just fine. I'm not sure what else to try. The error message is : "Run-
time error '1004': Method 'Save' of object '_Workbook' failed".

Suggestions please? Code below.

Private Sub CommandButton1_Click()
ActiveSheet.Unprotect
Sheet1.ClearTotals
Call Sheet1.ClearOrder
Worksheets("Order Form").Activate
ActiveSheet.Protect
ActiveWorkbook.Save
Application.DisplayAlerts = False
Application.Quit
End Sub