Sub Main Dim Document As Object For Each Document In App.Documents Debug.Print Document.Title Next DocumentEnd Sub