Option Explicit Sub CATMain() Dim prodDoc As ProductDocument Set prodDoc = CATIA.ActiveDocument Dim iSel As selection Set iSel = prodDoc.selection iSel.Search "CATAsmSearch.Product,all" Dim selCount As Long selCount = iSel.Count Dim Sel() ReDim Sel(selCount) Dim I As Integer I = 1 For I = 1 To selCount Set Sel(I) = iSel.Item(I).Value Next iSel.Clear Dim K As Integer I = 1 For I = 1 To selCount K = 1 For K = 1 To Sel(I).Publications.Count On Error Resume Next iSel.Add Sel(I).Publications.Item(K).Valuation On Error Goto 0 Next Next iSel.Search ("CATPrtSearch.Plane+CATPrtSearch.Point+CATPrtSearch.Line+CATPrtSearch.Curve,sel") iSel.VisProperties.SetShow catVisPropertyNoShowAttr End Sub