Sub Test() Dim CDoc As Document Set CDoc = ActiveWindow.Document MsgBox "The title of this document is: " & CDoc.Title Set CDoc = NothingEnd Sub