Saved property example

Sub Saved_Example()
    Dim bSavedStatus As Boolean
    bSavedStatus = ThisDrawing.Saved
    MsgBox "SavedStatus property is: " & bSavedStatus
End Sub