Command color change upon a click

[macrofan2012]

Hi

I am struggling to find code that will change the command box color once it's pressed, either background color of the command button or text color of the command button. Both would be fabulous...:-D

I have the below code I got while googling but it does not work though. I already have a macro for copying data from other excel...I just want to amend this code to existing macro.

With ActiveWorkbook.Sheets(Sheet1).Rectangles.Add(280, 30, 160, 30)
    .OnAction = "CODING"
    .Caption = "MAIN MENU"
    .Font.Size = 25
    .Font.Underline = xlUnderlineStyleSingle
    .Name = "CODING"
    .Interior.Color = RGB(255, 255, 255)
    .Border.Color = RGB(255, 255, 255)
End With

I would really appreciate if anyone can help with the right code.

Thanks in advance.

Su.