Active X Button - need to change background color

[Jenny McMillan]

Here is the code I have for the Macro, but I am not able to figure out how to change the color of the botton on the worksheet. Can anyone help me fix my code. I am new to Excel:

Sub Macro1()
'
' Macro1 Macro
'

'

Application.ScreenUpdating = False
Sheets("Template-Contact Log").Visible = True
Sheets("Template-Contact Log").Select
Sheets("Template-Contact Log").Copy Before:=Sheets(4)
Sheets("Template-Contact Log").Visible = False
Sheets("Template-Contact Log (2)").Select
Range("E1").Value = Sheets("CIS & W9 Site Information").Range("G1").<wbr>Value
Sheets("Template-Contact Log (2)").Name = Sheets("CIS & W9 Site Information").Range("G1").<wbr>Value



End Sub
Sub Macro2()
'
' Macro2 Macro
'

'

Sheets("Template-Contact Log (2)").Name = "2 - Dr. Peter Datlowe"
End Sub


Thanks - Jenny

 

[V_Malkoti]

Following code sets the color of ActiveX button named "CommandButton1" on the sheet "Sheet1" to red, text color to white and style to Bold.

Sheets("Sheet1").CommandButton1.BackColor = RGB(255, 0, 0)
Sheets("Sheet1").CommandButton1.ForeColor = RGB(255, 255, 255)
Sheets("Sheet1").CommandButton1.Font.Bold = True

 

[Jenny McMillan]

Hi,

Thanks for the coding, I am sorry, but I added it right before the first line starting with Sheets, and I got a run time error. What did I do wrong? Thanks for the help.

 

[V_Malkoti]

What is the error message?

Maybe your ActiveX button is named something else. Go to Developer tab, click on Design Mode, then select the ActiveX button that you want to change and click Properties button in ribbon. What is the value assigned to (Name) property in the Properties pop-up?