Sumif

[GWS1979]

Is there a way to make Excell sum cells on condition of font color??

 

[GWS1979]

Anything??

 

[tactps]

How about soemthing like this:

Sub Macro1()
Dim cell As Range
counter = 0
For Each cell In Selection
If cell.Interior.Color = vbRed Then counter = counter + cell.Value
Next cell
MsgBox ("The total is " & counter)
End Sub

 

[tactps]

Sorry, you said font colour:

Sub Macro1()
Dim cell As Range
counter = 0
For Each cell In Selection
If cell.Font.Color = vbRed Then counter = counter + cell.Value
Next cell
MsgBox ("The total is " & counter)
End Sub