Delete Rows

[Michael M]

Hi All
This has got me confused. I'm using a Excel 97-2003 Workbook
I'm using this simple code in my workbook and get an initial Type Mismatch error "13"
On closer inspection I get the error 2042 at the Value in red.

Sub DELROW()
Dim LR As Long, R As Long
LR = Sheets("PW").Cells(Rows.Count, "H").End(xlUp).Row
        For R = LR To 5 Step -1
            If Range("A" & R).Value = "" Then 'Value gives Error 2042
                Rows(R).EntireRow.Delete
            End If
        Next R
End Sub

It usually works fine but in this new workbook it errors out in red.
What and why am I getting an error 2042

 

[VoG]

If you could have error values in the range try

Sub DELROW()
Dim LR As Long, R As Long
LR = Sheets("PW").Cells(Rows.Count, "H").End(xlUp).Row
        For R = LR To 5 Step -1
            If Not IsError(Range("A" & R)) Then
                If Range("A" & R).Value = "" Then 'Value gives Error 2042
                    Rows(R).EntireRow.Delete
                End If
            End If
        Next R
End Sub

 

[Michael M]

Hmm, thanks Peter
Firstly, that works !!
My question would be now....Where do the errors come from ??
There are no formulae in the cells, it's a clean worksheet, there is no other code involved
and it's never happened previously (other workbooks or sheets)

 

[VoG]

Hmm. I don't know, sorry. I've only seen that error where there were obvious errors like #N/A.