Hi claytorm
If they are really blank and no more then 8192 separate areas ?
With ActiveSheet
On Error Resume Next
.Columns("B").SpecialCells(xlCellTypeBlanks).Entir eRow.Delete
On Error GoTo 0
End With
Or other ways
http://www.rondebruin.nl/delete.htm
--
Regards Ron de Bruin
http://www.rondebruin.nl
"claytorm" wrote in message
...
Hi
I have a large sheet and need a macro to delete any row which does not
have a value in column B. So, if B32 was blank, the whole of row 32
would be deleted. Can anyone come up with a simple macro to do this?
Thanks,
Bertie
--
claytorm
------------------------------------------------------------------------
claytorm's Profile: http://www.excelforum.com/member.php...o&userid=11610
View this thread: http://www.excelforum.com/showthread...hreadid=483223