Excel VBA to Delete Rows with Zeros, Type Mismatch Error

[theteerex]

For the code below, I get a type mismatch error on the line highlighted in red.
The code runs down a defined column and when it finds a zero, deletes the entire row.
What is the line missing? Initially it worked and then it stopped working.

Option Explicit


Sub CleanUp()


Dim sh As Worksheet
Dim Oppo As Long
Dim CheckLoop As Long
Dim RowCount As Long
Dim DelRng As Range


Set sh = ThisWorkbook.Sheets("Database")


With sh
    RowCount = .Cells(.Rows.Count, "C").End(xlUp).Row [COLOR=#008000]' get last row with data in column "C"[/COLOR]


    For CheckLoop = RowCount To 2 Step -1
[COLOR=#008000]        'Debug.Print CheckLoop.Row[/COLOR]
[COLOR=#ff0000][B]        If .Range("C" & CheckLoop).Value = 0 Then ' <== modified this line[/B][/COLOR]
            If Not DelRng Is Nothing Then
                Set DelRng = Application.Union(DelRng, .Rows(CheckLoop))
            Else
                Set DelRng = .Rows(CheckLoop)
            End If
        End If
    Next CheckLoop
End With
[COLOR=#008000]' if range object is not empty >> delete entire rows at 1-line[/COLOR]
If Not DelRng Is Nothing Then DelRng.Delete


End Sub

 

[AlphaFrog]

If the cell value contains a formula error, you will get that "Type Mismatch" error.

Perhaps modify your formulas to not error or wrap them in an IFERROR function e.g.;
=IFERROR(your_formula_here, 0)

 

[theteerex]

If the cell value contains a formula error, you will get that "Type Mismatch" error.

Perhaps modify your formulas to not error or wrap them in an IFERROR function e.g.;
=IFERROR(your_formula_here, 0)

Which formulas are you talking about?
As far as I can tell, there is no type mismatch.
Are you suggesting I wrap all the formulas in the

=IFERROR

?

 

[AlphaFrog]

Your formulas in column C. At least one of them is producing an error.

 

[theteerex]

Your formulas in column C. At least one of them is producing an error.

Now that's an interesting idea!