Well... I must be a little tired. Next time I'll see if I can't come up with
a more difficult question!

"crazybass2" wrote:

Your code is deleting what ever row you have selected when you enter the for
loop. You need to replace the Selection.EntireRow.Delete with

Rows(i).delete

Mike


"Nicole Seibert" wrote:

Problem. The code below just deletes the row as if there are no qualifiers
at all.

'This deletes rows that do not belong in this data extraction. This is a
failsafe.
For i = 2 To LastRow
'NTNI
If Range("F" & i).Text = "1text" And Range("M" & i).Value = 37.5 And
Range("N" & i).Value = "" Then _
Selection.EntireRow.Delete
'Parttime
If Range("F" & i).Text = "2 text" Or Range("F" & i).Text = _
"3text" Or Range("F" & i).Text = "4text" And _
Range("M" & i).Value = 20 And Range("N" & i).Value = "" Then
Selection.EntireRow.Delete
'Fulltime
If Range("F" & i).Text < "1text" Or Range("F" & i).Text < "2text" Or _
Range("F" & i).Text < "3text" Or Range("F" & i).Text < _
"4text" And Range("M" & i).Value = 40 And Range("N" & i).Value = ""
Then _
Selection.EntireRow.Delete
Next i