Hej ,

Private Sub CommandButton1_Click()
    Dim intCountColoredCells As Integer
    Dim intCol As Integer
    intCountColoredCells = 0
    For intCol = 3 To 102 'Gennemgå kolonne 3 til 102
        'Check om cellen i række  er farvet:
        If Cells(10, intCol).Interior.Pattern <> xlNone Then intCountColoredCells = intCountColoredCells + 1
    Next intCol
    'Skriv antal farvede i B10
    Range("B10") = intCountColoredCells
End Sub