That's what I thought should work but it doesn't . It produces a run-time
error "Object doesn't support this propery or method"

"Mike Fogleman" wrote:

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