I have blank rows that I want to remove from the worksheet, i use the
following code to do that, but it does not delete the rows in which the cells
of the row have a function. I have a function that returns a value, if it
does not return the value it is blank.

Public Sub DeleteBlankRows()
On Error Resume Next
Columns(2).SpecialCells(xlCellTypeBlanks).EntireRow.Delete
On Error GoTo 0
End Sub


I would like to know if there is a way to delete those rows with the blank
functions?

Hi daphoenix

You can loop and test for ""
http://www.rondebruin.nl/delete.htm

See the examples below the first macro

You can use

If .Value = "" Then .EntireRow.Delete
'This will delete each row if the cell is empty or have a formula that evaluates to ""

Or use EasyFilter
There is a option in the add-in to filter for "" and delete the rows
http://www.rondebruin.nl/easyfilter.htm



--

Regards Ron de Bruin
http://www.rondebruin.nl/tips.htm


"daphoenix" <(E-Mail Removed)> wrote in message news:4BE32B15-2D75-48F1-B45F-(E-Mail Removed)...
>I have blank rows that I want to remove from the worksheet, i use the
> following code to do that, but it does not delete the rows in which the cells
> of the row have a function. I have a function that returns a value, if it
> does not return the value it is blank.
>
> Public Sub DeleteBlankRows()
> On Error Resume Next
> Columns(2).SpecialCells(xlCellTypeBlanks).EntireRow.Delete
> On Error GoTo 0
> End Sub
>
>
> I would like to know if there is a way to delete those rows with the blank
> functions?