Greetings,

I am having trouble assembling some code to count the cells that have a background (interior index) of red in the worksheet range("J:AE")

If anyone could lend me some assistance, I would be very grateful. Thank you in advance.

Here is what I have developed so far, but it's not working as planned. 

Sub Count_Changes()
Dim Changer As Integer
Changer = 1
Sheets("Price+Qty_Changes").Select
For Each X In Range("J:AE")
    If X.Interior.ColorIndex = 3 Then  'just want to count cells with background of red
    Changer = Changer + 1
    End If
Next X
MsgBox(Changer)
End Sub