Delete row using vba

[User4Fun]

My delete entire row is not working. Any ideas

 intRow = 44
    For intRow = intLastRow To intRow Step -1
      intFound = Cells(intLastRow, intCol).Value
         If intFound >= intFirstNum Then
                       If intFound <= intSecondNum Then
                              MsgBox intFound & " is Good to keep"
                               intLastRow = intLastRow - 1
                       Else
                              EntireRow.Delete

                              
                       End If
        Else
          EntireRow.Delete
        End If
        Next intRow

 

[SkipVought]

[b]
Cells(intRow, intCol).[/b]entirerow.delete

Skip,

_{Just traded in my old subtlety...
for a NUANCE!}

 

[PHV]

For intRow = intLastRow To 44 Step -1
intFound = Cells(intRow, intCol).Value
If intFound < intFirstNum Or intFound > intSecondNum Then
Cells(intRow, intCol).EntireRow.Delete
End If
Next intRow

Hope This Helps, PH.
FAQ219-2884
FAQ181-2886

 

[User4Fun]

PHV???????????????????
You are my HEROOOOOOOOOOOOOOOOOOOOOO
that is all i needed, one set of fresh smart eyes

THank you thank you
I have been stuck here for two days.

I had it as < AND >
that is so stupid, I cannot have a numbeer to be smaller than and at the same time bigger than a number that is bigger than the first one???

thank you

 

[kjv1611]

User4Fun,

Generally, in these forums, if a post is helpful, you put a little pinky pointy thing called a star on it.

The part that says:

"Thank PHV for this valuable post!" is what you click, and then "Confirm."

That way, others will know that at least one person found this helpful, and therefore they might as well. It also serves as at least some for of recognition for the one who did solve the particular problem/question.

--

"If to err is human, then I must be some kind of human!" -Me