HasParent

From scripting
Jump to: navigation, search
Function HasParent(CurObj As Variant) As Boolean
On Error GoTo Blast
Dim NAParent
Set NAParent = CurObj.Parent
HasParent = True
Exit Function
Blast:
HasParent = False
End Function