Tom Ogilvy Wrote:
Assume if the cell in column A is empty, then the row should be removed
Dim rng as Range
On Error Resume Next
set rng = ActiveSheet.Columns(1).SpecialCells(xlBlanks)
On Error goto 0
if not rng is nothing then
rng.EntireRow.Delete
End if
--
Regards,
Tom Ogilvy
"wrangler"
wrote in
message ...
*-is there a way in VBA to remove all empty rows in a worksheet
'Sheet1'?-*
+-------------------------------------------------------------------+
|Filename: Remove all empty rows in a worksheet.zip
|
|Download: http://www.excelforum.com/attachment.php?postid=4326
|
+-------------------------------------------------------------------+
--
wrangler
------------------------------------------------------------------------
wrangler's Profile:
http://www.excelforum.com/member.php...o&userid=31048
View this thread
http://www.excelforum.com/showthread...hreadid=508980
Thank you for replying and I appreciate your effort, but your VBA do
not fit my Requirement, If you Please Refer to the attachment File, yo
will be aple to see my Dilemma.
wrangler
Thank
--
wrangle
-----------------------------------------------------------------------
wrangler's Profile:
http://www.excelforum.com/member.php...fo&userid=3104
View this thread:
http://www.excelforum.com/showthread.php?threadid=50898