how to chose the shape with cmyk and name it

[shanda]

sub rename()
dim lyr as layer
dim s1 as shape

for each s1 in lyr.shapes

if s1.fill.color = ??? then

s1.name = ???

end if

next

end sub


''''''''thanks