Sum of Shaded Cells

E

etennant

I have a worksheet that has some shaded figures and others with n
shading. Is there a way to get Excel to sum only the shaded cells.
The figures are all in the same column.

Thanks,

E
 
D

Don Guillett

One way
Sub countshade()
For Each c In Selection
If c.Interior.ColorIndex > 0 Then mc = mc + 1
Next
MsgBox mc
End Sub
 
Top