Hi Nicole,

Try replacing your code with:

For i = 2 To LastRow
If Range("F" & i).Value = "98 Other Country" _
And Range("M" & i).Value = 37.5 _
And Range("N" & i).Value = "" Then _
Selection.EntireRow.Delete

With Range("F" & i)
If .Value = "28 Part time" _
Or .Value = "18 Regular Part" _
Or .Value = "27 Non-regular Part" _
And Range("M" & i).Value = 20 _
And Range("N" & i).Value = "" Then _
Selection.Row.Delete
If .Value < "98 Other Country" _
Or .Value = "28 Part time" _
Or .Value = "18 Regular Part" _
Or .Value = "27 Non-regular Part" _
And Range("M" & i).Value = 40 _
And Range("N" & i).Value = "" Then _
Selection.EntireRow.Delete
End With
Next i


---
Regards,
Norman



"Nicole Seibert" wrote in message
...
*Sigh*
Ok. I keep getting a type mismatch error on the second if statment.

'This deletes rows that do not belong in this data extraction. This is a
failsafe.
For i = 2 To LastRow
If Range("F" & i).Value = "98 Other Country" And Range("M" & i).Value =
37.5 And Range("N" & i).Value = "" Then Selection.Row.Delete
If Range("F" & i).Value = "28 Part time" Or "18 Regular Part" Or "27
Non-regular Part" And Range("M" & i).Value = 20 And Range("N" & i).Value
=
"" Then Selection.Row.Delete
If Range("F" & i).Value < "98 Other Country" Or ""28 Part time" Or "18
Regular Part" Or "27 Non-regular Part" And Range("M" & i).Value = 40 And
Range("N" & i).Value = "" Then Selection.Row.Delete
Next i

I have tried using both .value and .text with no luck. Any suggestions?