I have a EXIT Clip Art image on the sheet that runs a macro to Save and
Close the workbook.
However i recently upgraded to Office 2007, but now allt he macros/forms run
fine, but the below code causes an error with excel when it runs, why and
what is the solution?

Sub Picture1_Click()
Application.DisplayAlerts = False
ActiveWorkbook.Save
ActiveWorkbook.Close
Application.DisplayAlerts = True
End Sub


I also use this code in the WB:

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Sheets("Navigation").Select
On Error Resume Next
Dim WB As Workbook
For Each WB In Application.Workbooks
Debug.Print WB.Name
If WB.Name < ThisWorkbook.Name Then
If WB.Windows(1).Visible = True Then Exit Sub
End If
Next
Application.Quit
End Sub


Corey....