Hi Martin

try something like this:
ActiveSheet.Shapes("split").DrawingObject.Font.Col orIndex = 15

Thanks




"Martin Just" wrote:

Hiya. Have a workbook with a commandbutton called "split". The caption,
likewise, is "split" I need some vba code to change the caption's font
color from black to gray.

When I record a macro and change the ForeColor property of the button, it
only records "ActiveSheet.Shapes("split").Select" and nothing else.

TIA, Martin