Setting Command Button caption

Well Im going mad....

I have a button on a sheet (Active X Command button) called CommandButton1

I want to set its caption via VBA however every method I can think of results in a "Run time error 438" object doesnt support this property or method.

Now Im fairly 99% sure Ive done this a dozen times in the past using

CommandButton1.caption = "My caption"

nope....

ActiveSheet.CommandButton1.caption = "My caption"

nah....

ActiveSheet.OLEObjects("CommandButton1").Caption = "My caption"
ActiveSheet.Shapes.CommandButton1.Caption = "My caption"

all giving the same error, come on folks, what daft thing am I doing wrong?

Active X control

yes that worked fine and when I went into your code, copied and pasted the line into my button event it worked. Yet that is exactly the same command as I was using (first code in my post). All very weird.

Many thanks