GetPartFromName

Function GetPartFromName(InputStr As String) As Part
For X = 1 To CATIA.Documents.Count
    If TypeName(CATIA.Documents.Item(X)) = "PartDocument" Then
        If CATIA.Documents.Item(X).Part.Name = InputStr Then
            Set GetPartFromName = CATIA.Documents.Item(X).Part
        End If
    End If
Next X
End Function