Find all black cells in a range

[anthony20069]

hi all,

Im trying to find all black cells in the range F3:CZ137 and then add the Value of 1 into the cell - there are quite a few, so would be a very laborious task. Is this possible with VBA?

many thanks

[ssingh75]

Range("F3:CZ137").select
Selection.SpecialCells(xlCellTypeBlanks).Select

[lotuxel]

[VBA]
dim rng as range
dim r as range
set rng = range("F3:cz137")
for each r in rng

next
[/VBA]

[Teeroy]

Are the cells formatted black directly or are they the result of a conditional format being applied? The methods to deal with these are quite different.