VBA to change CommandButton colour

[LORDMARKS]

Hi all

I am looking for a way to change the colour of a command button, based on a value. I have some code running on load up to check certain values and carry out functions accordingly. One of the checks prompts the user to check a certain sheet if the criteria is met, but I would also like it to highlight the Command button (used to navigate to sheet) RED until the issue has been resolved.

I have found code to run on click, but it won't work as part of the 'on load' code ?

Has anyone got a simple bit of code to change colours from any Sub?

Thanks in advance as always

 

[mrmmickle1]

Maybe Something Like this for an ActiveX Command Button:

[COLOR=#0000ff]Sub [/COLOR]ChangeCmdBtnColor()

[COLOR=#0000ff]     If [/COLOR]Range("A1").Value = "Test" [COLOR=#0000ff]Then[/COLOR]
          ActiveSheet.OLEObjects("CommandButton1").Object.BackColor = &HFF& [COLOR=#008000]'Red[/COLOR]
[COLOR=#0000ff]     End If[/COLOR]

[COLOR=#0000ff]End Sub[/COLOR]

You could probaby list your CommandButton Names as variables to get the results you want. i.e. :

ActiveSheet.OLEObjects([B][COLOR=#ff0000]YourVariableName[/COLOR][/B]).Object.BackColor = &HFF& [COLOR=#008000]'Red[/COLOR]