Private Sub Savedproperty()
Dim SavedStatus As Boolean
SavedStatus = Application.ActiveDocument.Saved
MsgBox "SavedStatus property is: " & SavedStatus
End Sub