Application Property Example

This example displays a message about the application that created myObject.

Set myObject = ActiveWorkbook
If myObject.Application.Value = "Microsoft Excel" Then
    MsgBox "This is a Microsoft Excel object"
Else
    MsgBox "This is not a Microsoft Excel object"
End If