a macro which can quickly delete entire row when column A is blank

please help me with this
thank u so much frnd

--
Message posted from http://www.ExcelForum.com

Hi
one way:
Sub delete_rows()
Dim RowNdx As Long
Dim LastRow As Long
Application.ScreenUpdating = False
LastRow = ActiveSheet.Cells(Rows.Count, "A").End(xlUp).row
For RowNdx = LastRow To 1 Step -1
with Cells(RowNdx, "A")
if .value = "" then
Rows(RowNdx).Delete
End If
end with
Next RowNdx
Application.ScreenUpdating = True
End Sub

--
Regards
Frank Kabel
Frankfurt, Germany


a macro which can quickly delete entire row when column A is blank

please help me with this
thank u so much frnds


---
Message posted from http://www.ExcelForum.com/

try this
Sub RowBeGone()
Columns("A").SpecialCells(xlCellTypeBlanks).Entire Row.Delete
End Sub

--
Don Guillett
SalesAid Software

"vikram " wrote in message
...
a macro which can quickly delete entire row when column A is blank

please help me with this
thank u so much frnds


---
Message posted from http://www.ExcelForum.com/

thank u so much


u guys are amazing
thank u so much
my macro was very slow
thanks agai

--
Message posted from http://www.ExcelForum.com

glad to help

--
Don Guillett
SalesAid Software

"vikram " wrote in message
...
thank u so much


u guys are amazing
thank u so much
my macro was very slow
thanks again


---
Message posted from http://www.ExcelForum.com/