Saved property example

Private Sub Savedproperty()

     Dim SavedStatus As Boolean

     SavedStatus = Application.ActiveDocument.Saved

     MsgBox "SavedStatus property is: " & SavedStatus

End Sub