Sub blankgray()
Selection.SpecialCells(xlCellTypeBlanks).Select
With Selection.Interior
.ColorIndex = 15
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
End With
End Sub

This will colour all blank cells up to your "end" cell.
I.e. you may have to have a non-blank cell(space?) further down and to the
left of
your normal range, to get the desired effect.

--
Greetings from New Zealand
Bill K
"Diggsy" wrote in message
...
I was wondering if it is possible to create a macro that will fill all
cells
that are blank in my workbook with a certain color(actually gray) so that
it
looks presentable?

Thank you

Diggsy