If Not ActiveWorkbook.Saved Then
MsgBox "This workbook contains unsaved changes."
Else
MsgBox "No Unsaved Changes"

End If

Can use ThisWorkbook.Saved. Also the property can be set to True so that you
can exit without saving or getting an Alert message.


--
Regards,

OssieMac