Sub CATMain()
set mypart = catia.activedocument
msgbox(mypart.name)
End Sub