Ron de Bruin wrote:
I like to add this

Use this instead to avoid a error when there are no blanks

Sub test()
On Error Resume Next
Range("A1:A50").SpecialCells(xlCellTypeBlanks).Ent ireRow.Delete
On Error GoTo 0
End Sub

Ron thanks you for the addition :-)

--
Regards
Melanie Breden
- Microsoft MVP für Excel -

http://excel.codebooks.de (Das Excel-VBA Codebook)