Sub DocsOpen()
  Dim aDoc As Document
  For Each aDoc In Application.Documents
    MsgBox aDoc.Name
  Next aDoc
End Sub