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


"gb_S49" wrote in message
...
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?