QP School

Example:

Sub CountColoredCells()
    Dim countColor As Long
    Dim cell As Range
    Dim targetColor As Long

    'Specify the target color (RGB value) to count
    targetColor = RGB(255, 0, 0) 'Red color in this example

    countColor = 0 'Initialize the counter

    'Loop through each cell in the range
    For Each cell In Range("A1:A10")
        'Check if the cell's background color matches the target color
        If cell.Interior.Color = targetColor Then
            countColor = countColor + 1 'Increment the counter
        End If
    Next cell

    MsgBox "Number of cells with the target color: " & countColor
End Sub

Explanation:

The code defines a subroutine named CountColoredCells.
It declares variables for the counter (countColor), a loop variable (cell), and the target color (targetColor) you want to count. 
In this example, we use the RGB value for the color red (255, 0, 0).
The counter countColor is initialized to 0.
The For Each loop is used to loop through each cell in the range "A1:A10".
The If statement checks if the background color of the current cell matches the target color (targetColor = RGB(255, 0, 0)). 
If there is a match, the counter countColor is incremented by 1.
Finally, a message box displays the number of cells with the target color.