How to handle Cells Value #N/A

[thompsonf]

Please help! Does anyone know how to handle cells value = "#N/A". I
have encountered an error message with the macro below. But it seems
to be working if I change it as Cells(j, 9) = "N/A"


******************************************
Sub HighlightUseless()

Dim j As Integer

Application.ScreenUpdating = False
j = 2

Do While Cells(j, 1) <> ""
If Cells(j, 9) = "#N/A" Then
Rows(j).Select
Rows(j).Interior.ColorIndex = 6
'Selection.EntireRow.Delete
Else
End If
j = j + 1
Loop
End Sub
*******************************************

 

[Rob van Gelder]

Try using:
If Cells(j, 9) = CVErr(xlErrNA) Then

 

[Tom Ogilvy]

Sub HighlightUseless()

Dim j As Integer

Application.ScreenUpdating = False
j = 2

Do While Cells(j, 1) <> ""
If Cells(j, 9).Text = "#N/A" Then
Rows(j).Select
Rows(j).Interior.ColorIndex = 6
'Selection.EntireRow.Delete
Else
End If
j = j + 1
Loop
End Sub