Sub CATMain()
Dim ProductDocument1 As ProductDocument
Dim Product1 As Product
Set ProductDocument1 = CATIA.ActiveDocument
Set Product1 = ProductDocument1.Product
 Dim Was(0)
  Was(0) = "Part"
  Dim Selection1
  Set Selection1 = ProductDocument1.selection
    
    Selection1.Clear
    Dim Auswahl
    Auswahl = Selection1.SelectElement2(Was, "Part wählen!", True)
    CATIA.StartWorkbench "PrtCfg"
    'Product1.Update
End Sub

' jetzt mal auf fenster übereinander klicken!!!!!!!