delete rows between a range of numbers

[excelnoobhere]

I have the following code that deletes the entire row if its value is 900.

  Sub RemoveRows900()

Dim i As Long


i = 1


Do While i <= ThisWorkbook.ActiveSheet.Range("AA7:AA1000").CurrentRegion.Rows.Count


    If InStr(1, ThisWorkbook.ActiveSheet.Cells(i, 1).Text, "900", vbTextCompare) > 0 Then
        ThisWorkbook.ActiveSheet.Cells(i, 1).EntireRow.Delete
    Else
        i = i + 1
    End If


Loop


End Sub

I want the code to be able to remove any row that is between 001 to 140 with the addition of 900

but I'm keeping 001 and 140

only the numbers in between
for example: if my row contain 141 keep, 140 keep, 139 delete, 000 keep, 001 keep 002 delete, 900 delete and so on

thanx in advance

 

[excelnoobhere]

I got it

Sub Delete_001_140()
    Dim N As Long, i As Long
    N = Cells(Rows.Count, "AA").End(xlUp).Row
    Application.ScreenUpdating = False
    For i = N To 1 Step -1
        v = Cells(i, "AA").Value
        If v > 0 And v < 140 Then
            Cells(i, "AA").EntireRow.Delete
        End If
    Next i
    Application.ScreenUpdating = True
End Sub

 

[Logit]

.
Great job !

Curious ... how did you cover the 900, 901, 902, etc ?