Announcements
Attention for Customers without Multi-Factor Authentication or Single Sign-On - OTP Verification rolls out April 2025. Read all about it here.

This worked

Dim oDoc As PartDocument
oDoc = ThisApplication.ActiveDocument

Dim oCompDef As SheetMetalComponentDefinition
oCompDef = oDoc.ComponentDefinition

oCompDef.SheetMetalStyles.Item("18GA GA Jkt (Test)").Activate