Application property example

The following example demonstrates how to return the Application property.

Private Sub ApplicationPropExample()

     Dim myObject As Application

     Set myObject = Application

     MsgBox ("Application is: " & myObject.Name)

End Sub