Difference between revisions of "HasParent"

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

Latest revision as of 06:05, 22 April 2017

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