very nice, I was able to consolidate the following three lines
recorded, into one.
Columns("B:B").Select
Selection.SpecialCells(xlCellTypeBlanks).Select
Selection.EntireRow.Delete
Thanks, To
--
ackur
-----------------------------------------------------------------------
ackurv's Profile:
http://www.excelforum.com/member.php...fo&userid=1552
View this thread:
http://www.excelforum.com/showthread.php?threadid=27204