Counting cells colored by conditional formatting

I'm using the gantt chart template made by Vertex. I'm trying to count how many cells with color by column. For some reason the VBA I found works on cells with conditional formatting outside the chart but not colored cells within the chart. I did some trial and error. If I use conditional formatting to fill cells with color when blank, it works. Attached is the template. Thank you.

Sub DisplayFormatCount()

Dim Rng As Range
Dim CountRange As Range
Dim ColorRange As Range
Dim xBackColor As Long
'On Error Resume Next

Set CountRange = Range("$K$7:$BN$50")
Set ColorRange = Range("$L$1")
xReturn = 0
For Each Rng In CountRange

If Rng.DisplayFormat.Interior.Color = ColorRange.DisplayFormat.Interior.Color Then
xBackColor = xBackColor + 1
End If
Next
Range("$M$1").FormulaR1C1 = xBackColor
End Sub

Thank you for a quick response. How should I modify the VBA if I want to count by column? I would like to count the colored cells by day. Thank you.

By changing range in below line
Set CountRange = Range("$K$7:$K$50")
but that would work only with one column

Yes, it works. Can I make each corresponding day calculation to show on K1, L1, M1 and so on until column BN1? Thank you.

I am pretty sure you can but not with macro i got unless you rerepeat macro for all other columns but that would be 56 times
hopefully somebody who knows more then i do will help
sorry

Thank you for the help. At least now it is counting the colored cells. Have a great weekend

welcome
I hope you get an answer from somebody

This works great as well. Thank you.