With ActiveSheet.Shapes("Rect2").Font
.ColorIndex = 1
End With

Mike F

"Ben" wrote in message
...
ActiveSheet.Shapes("Rect2").Select
With Selection.Font
.ColorIndex = 1
End With

I use the code above to change the color of the text inside a rectangle
and
it works fine but what is the correct syntax to use without having to
select
the rectangle first.

Thank you



Thank you