Count shaded cells

[lantirn]

How do I count cells that are shaded, i.e., yellow fill.

[Mark O'Brien]

Go through them one at a time and put an | down for every shade cell. Then every multiple of 5 put a bar across like this ||||. This makes it easier to count the total. (Sorry it's lunchtime, I get sarky at lunchtime)

Seriously, how do you want to do this? Do you want to use VBA? I don't know how you'd do it otherwise.

_________________
[b] Mark O'Brien

[ This Message was edited by: Mark O'Brien on 2002-04-09 09:39 ]

[Brian from Maui]

From Dave Hawley

http://www.ozgrid.com/VBA/Sum.htm

[Ricky Morris]

Try this:

Sub yellow_count()
lastcell = Cells.SpecialCells(xlCellTypeLastCell).Address
firstcell = "A1"
Range(firstcell & ":" & lastcell).Select
For Each cell In Selection
If cell.Interior.ColorIndex = 6 Then x = x + 1
Next
MsgBox x & " cells are yellow"
End Sub

[lantirn]

Thanks for the VBA.
I guess the other method will work as well