Error trying to delete blank rows

[sharky12345]

I'm using the below code to delete blank rows in a range, but it is producing an error if there are no blank rows to delete. I already have an error routine built into the macro which sends me an email on an error, so I don't think I can use On Error GoTo 0 aswell can I?

Essentially I would like to deal with the above scenario by just ignoring it, if someone can suggest a solution?

Columns("A").SpecialCells(xlCellTypeBlanks).EntireRow.Delete

 

[gallen]

yes if you just want to ignore wrap it in an ignore error. Just be sure to send all subsequent errors to your error handler, whatever you have called it.

    On Error Resume Next
[COLOR=#333333]        Columns("A").SpecialCells(xlCellTypeBlanks).EntireRow.Delete
[/COLOR]    On Error goto [COLOR=#ff0000]YourErrorHandler[/COLOR]

 

[sharky12345]

Brill, thanks gallen!