how to convert each object in selection to CONVERT TO SYMBOL
no need to invent anything - standard function
Function ConvertToSymbol(Name As String) As Shape Member of VGCore.Shape Converts a shape to a symbol
Working, Thanking you so much