Function GetHierarchy(ByVal toObject As Object) Dim lcHierarchy As String Dim loObject As Object loObject = toObject lcHierarchy = loObject.Name Do While Not loObject.Parent is Nothing loObject = loObject.Parent lcHierarchy = loObject.Name & "." & lcHierarchy Loop Return lcHierarchy End FunctionThanks Alexandre!