Sub test()
Dim x As Integer, mysum As Double
For x = 1 To 20
If Cells(x, 1).Interior.Color <> 16777215 Then mysum = mysum + Cells(x, 1)
Next x
Range("A21") = mysum
End Sub
Function SumHighlightedCells(varRange2 As Range)
Dim varRange1 As Range
Dim varConCount As Integer, varNloops As Integer
Dim varCondition As Boolean
Dim varSum As Double
For Each varRange1 In varRange2
varConCount = varRange1.FormatConditions.Count
For varNloops = 1 To varConCount
If varRange1.FormatConditions(varNloops).Type = 13 Then
varCondition = Application.Evaluate _
(varRange1.FormatConditions(varNloops).Formula1)
If varCondition = True And IsNumeric(varRange1) Then _
varSum = varSum + varRange1.Value / varConCount
End If
Next varNloops
Next varRange1
SumHighlightedCells = varSum
End Function