Sub Test() If ActiveDocument.FullFileName = "" Then MsgBox "Current document is not saved yet" Else MsgBox "Current document was saved to: " & ActiveDocument.FullFileName End IfEnd Sub