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