CommandButton1.Backcolor = Number, Getting / Run time error "424" Object Required

[Harvey3]

Hello, I'm moderately new to Macros and have been doing well but for some reason I'm just not getting this. I have Windows Excel 2016, I have a large Macro program but for simplicity I have made a simple Module to figure it out.
The end result is that I want an "Active X" Button that will change it's background color and Alter Text message when a cell on another worksheet changes it's value (either 0 or 5). I have tried several different options but this is what I have presently for the BackColor.
Any help would be appreciated. This is what I have below... It returns "Run-time error "428", Object doesn't support this property or method

Option Explicit
Sub CommandButton16()

If Worksheets("Data").Range("I2").Value = 5 Then
Sheets("Month").CommandButton1.BackColor = 52582
Else
Sheets("Month").CommandButton1.BackColor = RGB(224, 224, 224)
End If

End Sub

[ptmuldoon]

Welcome to forums.

Please note that your post does break a rule and your code should be placed within code tags when asking for help.

But that said... your code does work if when you run it. But I think you are trying to have this change automatically when you change the value in cell I2. So you do not want to use your code in a standard module, but rather have your code in a worksheet.

So place this code in your "Data" worksheet module.

Please Login or Register  to view this content.

[Harvey3]

Hello ptmuldoon,
Yes, that worked but I really needed it to be in the WorkSheet due to I have 15 WorkSheets that this button is within and Three of the buttons are independent from the others. What I have come up with is that I have it working within each sheet OK. I have also created a "Sub Button#_Click" so when I change the option by clicking on it, it will change the option in my "Sheet("DATA").Range("B1")" so the other "months" sheets will have the same options. It is working but for some reason when I run the code below, The "Sheets("DATA), Range("B1") comes back as an error (Run-time error "1004", saying the DATA cell I am trying to change is protected???
I have the statement "ActiveSheet.UnProtect" plus I have made the Sheet("DATA") itself Un-Protected and it still comes back with the same error? I don't understand why I'm getting the error and you help?
I also wanted to thank you for your previous help, though it didn't answer my actual situation, it did set me on the right path to figure out what I needed to do.

Please Login or Register  to view this content.