You can modify this example: #CODE|Hide All Derived Sketches in the Feature Tree
If swFeat.Name Like "marcaj*" Then
Dim swSketch As SldWorks.Sketch
Set swSketch = swFeat.GetSpecificFeature2
'Modifying the sketch may corrupt the pointer to the tree node so it is required to blank sketches after the traverse completed
If swSketch.IsDerived() Then
It work great but if the sketch is suppressed how stop to unblank?
i did it!... Thank you!