Sub Test() Dim d As Document Dim s As String s = "List of open documents:" For Each d In Documents s = s & vbCr & "- " & d.Title If d.Dirty Then s = s & "*" If d.Active Then s = s & " (Current)" Next d MsgBox s End Sub