Adding a Column C to this Macro

[jexcel3]

Can someone help me adjust this macro to check for N/As in Column C and Column D. I would like to have the macro delete the entire row if there is a N/A in column C and/or D. The N/A is a text, not an excel error. Any ideas?

Sub CheckD()
Dim lastrow As Long, i As Long
Application.ScreenUpdating = False
Application.Calculation = xlManual
With ActiveSheet
    lastrow = .Cells(Rows.Count, 3).End(xlUp).Row
    For i = lastrow To 1 Step -1
         If .Range("D" & i).Value = "N/A" Then .Rows(i).Delete
    Next i
End With
Application.ScreenUpdating = True
Application.Calculation = xlAutomatic
End Sub

 

[SydneyGeek]

Try:

Sub CheckD()
Dim lastrow As Long, i As Long
Application.ScreenUpdating = False
Application.Calculation = xlManual
With ActiveSheet
    lastrow = .Cells(Rows.Count, 3).End(xlUp).Row
    For i = lastrow To 1 Step -1
         If .Range("C" & i).Value = "N/A" Or .Range("D" & i).Value = "N/A" Then .Rows(i).Delete
    Next i
End With
Application.ScreenUpdating = True
Application.Calculation = xlAutomatic
End Sub

Denis

 

[jexcel3]

thanks for the help

j