The following example demonstrates how to return the Parent property of the Application object.
Private Sub ParentPropExample()
Dim myParent As Object
Set myParent = Application.Parent
MsgBox ("Application is: " & myParent.Name)
End Sub