Deleting Rows

[STEVEB]

Does anyone have any suggestions for a code that will look at column A
and if any cell is blank in column A then delete the entire row?

Any help would be greatly appreciated.

Thanks!

 

[Dave Peterson]

on error resume next
activesheet.range("a:a").cells.specialcells(xlcelltypeblanks).entirerow.delete

 

[STEVEB]

Thanks Dave!

That worked perfect!!

 

[Tom Ogilvy]

Sub DeleteRows()
On Error Resume Next
columns(1).Specialcells(xlBlanks).EntireRow.Delete
End sub

 

[STEVEB]

Thanks Tom,

I appreciate your hel