Counting color Filled Cells across entire workbook?

enuff_2live , with Macro (VBA) it is possible to count. Attached sheet is an example how it can be done by VBA. It has 2 buttons. 1st button populates the sheet names ("pages") and applicable cells addresses. Then user can type "Y" against the sheets to be considered for calculation. Then the 2nd button calculates the filled cells in the applicable cells of the considered sheets.

Though the file is attached, and code is enclosed below as well, still there can be n number of user scenarios which need consideration in VBA programming / errors trapping etc. That level of build and testing is not possible to ensure. May pls. take it as a hint for further development at your end.

(You mentioned that you have created some Macros, so i assume that you can build on, catch the line of the code)

Private Sub PopulateSheetNames_Click()

Dim InputCellAnchor As Range
Dim i As Integer

Set InputCellAnchor = Worksheets("Count Console").Range("B6")

For i = 1 To Worksheets.Count - 1
    InputCellAnchor.Offset(i, 0) = i
    InputCellAnchor.Offset(i, 1) = Worksheets(i + 1).Name
    InputCellAnchor.Offset(i, 2) = "K16:K45"
Next

End Sub
Private Sub CountColoredCells_Click()

Dim InputCellAnchor As Range
Dim OutputCell As Range
Dim sht As Worksheet
Dim rngadd As String
Dim i As Integer        'counter for sheet
Dim j As Integer        'counter for filled cells in the considered sheet
Dim k As Integer        'total filled cells counter

Set InputCellAnchor = Worksheets("Count Console").Range("C7")
Set OutputCell = Worksheets("Count Console").Range("J2")

i = 0
k = 0
OutputCell.Value = ""

Do While InputCellAnchor.Offset(i, 0) <> ""                     'till the case that sheet name is not blank
    Set sht = Worksheets(CStr(InputCellAnchor.Offset(i, 0)))
    rngadd = InputCellAnchor.Offset(i, 1)
    If InputCellAnchor.Offset(i, 2) = "Y" Then                  'if that sheet is inputted as "Y" i.e. considered
        j = 0
        For Each c In sht.Range(rngadd).Cells                   'scan all applicable cells in that sheet
            With c.Interior
                If Not .Pattern = xlNone And _
                       .TintAndShade = 0 And _
                       .PatternTintAndShade = 0 Then
                    
                   j = j + 1                                    'count if it is filled
                   
                End If
            End With
        Next
        InputCellAnchor.Offset(i, 3) = j                        'output sheet level count
        k = k + j
    Else
        InputCellAnchor.Offset(i, 3) = ""
    End If
    i = i + 1
Loop

OutputCell.Value = k                                            'output global count

End Sub