Excel cell format

[Guest]

I am editing a spreadsheet which the original user used cell formatting to
indicate postives. It looks very pretty!! Is there a function, macro I can
use,as
it contains over 3000 row, to replace the shaded (filled but blank) cells
with yes?

 

[JE McGimpsey]

See one potential answer in .misc

 

[Tom Ogilvy]

set rng = Columns(5)
On Error Resume Next
set rng1 = Intersect(rng.specialcells(xlBlanks),Activesheet.UsedRange)
rng1.Value = "Yes"
On Error goto 0
if rng1 is nothing then msgbox "No cells found"