Hey LucasC,
Thanks for your reply!
I tried to follow your thread, I came up with this:
Sub CATMain()
Dim vis As Variant
Dim objsel As Selection
Set objsel = CATIA.ActiveDocument.Selection
objsel.Search "CATGmoSearch.Surface.Color='(243,254,177)',scr"
Dim mySurface As...