References summations based on column and row number

Steffen,
Thanks for the reply. I managed to work it out.

Dim Sum(23, 7) As Integer
 For a = 10 To 23
        For b = 3 To 7
        
        If Workbooks(NewFile).Sheets("Course Rating").Rows(a).Columns(b).Interior.ColorIndex = 4 Then
            Sum(a, b) = Sum(a, b) + 1
            Workbooks(CurrentFile).Sheets("Analysis").Rows(a).Columns(b) = (Sum(a, b) / Count)
        End If

So this code will give a sum for each combination of rows 10 - 23 with columns 3 - 7