Activate Main Top Node product in assembly

[NaWin55]

Hello all

i am trying to create a macro to activate top main product of a assembly

i tried Product.Activate didnt work
catia.startcommand "frmActivate"
didnt work
is there any way

when i run the macro the mainproduc1 should be in Blue color means that is the active editing product in tree
refer image

 

[LWolf]

you need to select the node first, and then use the StartCommand.

Sub CATMain()
Dim myDoc
Set myDoc = CATIA.ActiveDocument
Dim Selection1 As Selection
Set Selection1 = myDoc.Selection

Selection1.Add myDoc.Product
CATIA.StartCommand "FrmActivate"
End Sub

regards,
LWolf