Thanks for the thoughts and learnings, Dave !
--
Max
Singapore
http://savefile.com/projects/236895
Downloads:21,000 Files:370 Subscribers:66
xdemechanik
---
"Dave Peterson" wrote in message
...
Just a note...

I like to use something like this:

Sub ClearNulls()
dim rng as range
dim itm as range
dim ar as range

Set rng = Selection

For Each ar In rng.Areas
For Each itm In ar.cells 'added .cells
If Trim(itm.Value) = "" _
Then itm.ClearContents
Next 'itm
Next 'ar
End Sub

But in this case, you could drop the area portion of the code (since
you're
looping through each cell anyway):

Sub ClearNulls()
dim rng as range
dim itm as range

Set rng = Selection

For Each itm In rng.cells
If Trim(itm.Value) = "" Then
itm.ClearContents
end if
Next 'itm

end sub

(I don't like the single line If statement -- especially when they take
two
lines <vbg.)