Activate method example

Private Sub ActivateExample()

' The following example successively activates each open drawing.

     For Each doc In Application.Documents

          doc.Activate

          MsgBox "The following document is active: " & doc.Name

     Next doc

End Sub