This puts a space in every blank cell in column D

Sub SpaceInBlankColD()
Range("D:D").SpecialCells(xlCellTypeBlanks).Value = " "
End Sub

--
HTH
Nick Hodge
Microsoft MVP - Excel
Southampton, England
DTHIS
www.nickhodge.co.uk


"scorpiorc" wrote in message
...
I have column D that contains both data and blank cells. I need to find a
way to find the blank cells and fill them with a space. I've tried:

For Each z In Range("D1:D")
If z.Value = IsEmpty("D") Then
z = " "
End If
Next z

but get an error. Any ideas how I can do this?