Macro to delete cells containing a formula that results in ""

Hi all,
I've googled left and right about the topic, and all I can find is macros to delete blank cells.

In my case, I want to delete cells (within my selection) that contain a formula, and the formula results in "".

This is the code I'm working on:

Sub DeleteBlankRows1()
'Deletes the entire row within the selection if the ENTIRE row contains no data.
'We use Long in case they have over 32,767 rows selected.
Dim i As Long
    'We turn off calculation and screenupdating to speed up the macro.
    With Application
        .Calculation = xlCalculationManual
        .ScreenUpdating = False
    'We work backwards because we are deleting rows.
    For i = Selection.Rows.Count To 1 Step -1
        If WorksheetFunction.CountA(Selection.Rows(i)) = 0 Then
            Selection.Rows(i).EntireRow.Delete
        End If
    Next i
        .Calculation = xlCalculationAutomatic
        .ScreenUpdating = True
    End With
End Sub

Any help is appreciated!

Cheers,
Adri

Hi, Adri,

change

        If WorksheetFunction.CountA(Selection.Rows(i)) = 0 Then

to

        If Selection.Cells(i) = 0 Then

Ciao,
Holger

Hi Patel45,

Ideally, I would like to check if the row has any data. If so, only the cell is deleted.
Otherwise, if the row contains no data, it can be completely deleted.

Hi patel45,
This won't delete the row if blank, is that right?

Hi patel45,
Your code

Sub eliminateBlankCells()
For Each Cell In Selection
    If Cell.Value = "" Then
        Cell.Delete Shift:=xlUp
    End If
Next

End Sub

does work, but I need to run the macro 2 or 3 times, any ideas why? It doesn't delete all the cells when it first ran.

Hi, Adri,

this happens due to the fact that patelīs code starts at the top and after a deletion continues in the next row not condering that a ""-Cell may have been shifted up.

The code you found wonīt show that because it starts at the bottom and works up. So in total:

Sub DeleteBlankRows1()
'Deletes the entire row within the selection if the ENTIRE row contains no data.
'We use Long in case they have over 32,767 rows selected.
Dim i As Long
    'We turn off calculation and screenupdating to speed up the macro.
    With Application
        .Calculation = xlCalculationManual
        .ScreenUpdating = False
    'We work backwards because we are deleting rows.
    For i = Selection.Rows.Count To 1 Step -1
        If Selection.Cells(i) = "" Then
            Selection.Rows(i).EntireRow.Delete
        End If
    Next i
        .Calculation = xlCalculationAutomatic
        .ScreenUpdating = True
    End With
End Sub

And what do you really want? Cell deleted or EntireRow?

Ciao,
Holger

Hi, patel45,

you read my post? Apparently not. Just double up the number of "" in your file/selection and - be surpised to find out.

Ciao,
Holger