Hi mja
See
http://www.rondebruin.nl/delete.htm
This can be very fast
Sub DeleteBlankRows_1()
'This macro delete all rows with a blank cell in column A
On Error Resume Next 'In case there are no blank cells
Columns("A").SpecialCells(xlCellTypeBlanks).Entire Row.Delete
On Error GoTo 0
End Sub
Warning Read this
http://www.rondebruin.nl/specialcells.htm
--
Regards Ron de Bruin
http://www.rondebruin.nl
"mja" wrote in message ...
I would like to write a macro to delete rows if a cell in column b is blank.
Thanks in advance.