Remove all empty rows in a worksheet

  • Thread starter Thread starter wrangler
  • Start date Start date
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
 
Tom said:
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" <[email protected]
wrote in
message news:[email protected]...
*-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 |

+-------------------------------------------------------------------+
Click to expand...

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
Click to expand...
 
Back
Top