Type mismatch error

[deduwa]

Hi,

I am getting a Type mismatch error of the below italic line. I cannot see where the problem is. Can anyone help (the macro goes down column Y and deletes entire row if cell in column Y is B or is C);

Last = Cells(Rows.Count, "A").End(xlUp).Row
For i = Last To 1 Step -1
If (Cells(i, "Y").Value) = "B" Or (Cells(i, "Y").Value) = "C" Then
Cells(i, "A").EntireRow.Delete
End If
Next i

 

[Fluff]

Do you have any error values in col Y like #N/A #VALUE etc

 

[deduwa]

Yes - I have #N/A in some cells.

I removed the #N/A's and the code worked.

Is there a way to get a msgbox so that instead of the macro not working, it still executes but the user sees that there are a number of N/A's that require further investigation?

 

[Fluff]

Something like

   last = Cells(Rows.Count, "A").End(xlUp).Row
   For i = last To 1 Step -1
      If IsError(Cells(i, "Y")) Then
         Msg = "Errors found"
      ElseIf (Cells(i, "Y").Value) = "B" Or (Cells(i, "Y").Value) = "C" Then
         Cells(i, "A").EntireRow.Delete
      End If
   Next i
   If Msg <> "" Then MsgBox Msg