I as Long not working?

[30136353]

Hi, I've used this code many of times and had no problems, but keeping getting a run error 13 now with type mismatch on the below code, anyone Idea?

    Sub RemovePONs()

    Dim I As Long
    
    I = 3

    Do While Worksheets("Issues").Cells(I, 4) <> ""
    If Worksheets("Issues").Cells(I, 4) = "#N/A" Then
    Rows(I).EntireRow.Delete
    Else: End If
    I = I + 1
    Loop


    End Sub

 

[RoryA]

You can't compare an error value to text. If your cells contain errors, you should test them with Iserror or similar, not compare them to text like "#N/A"

 

[30136353]

You can't compare an error value to text. If your cells contain errors, you should test them with Iserror or similar, not compare them to text like "#N/A"

Thanks Ill fix that, although still getting the original error on line *Do While Worksheets("Issues").Cells(I, 4) <> "" *

 

[RoryA]

You're still comparing the cell value to text. If it's got an error in it, that won't work. Test for the error first, then test for a blank cell after that (on a separate line).