VBA modify Code to say if range value = 2-100

[LNG2013]

In the below code it deletes any of the cells A-D in which the the value of Column E = 1.
I would like to modify this so if the value is 2-100.

Any help is appreciated,

Public Sub EmptyOutABCAllSheets()


Dim lLastRow As Long
Dim vList() As Variant


vList = Array("Data1", "Data2", "Data3", "Data4")

On Error Resume Next 'It will error out on non-existent sheet or empty data

Application.ScreenUpdating = False
For j = LBound(vList) To UBound(vList)
    With Sheets(vList(j))
    lLastRow = .Cells.Find(What:="*", LookIn:=xlValues, LookAt:=xlPart, _
    SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row
        For i = 1 To lLastRow
            If .Range("E" & i).Value = "1" Then
            .Range("A" & i).Resize(1, 4).ClearContents
            End If
        Next i
    End With
Next j
Application.ScreenUpdating = True

 

[6StringJazzer]

First, don't put numeric values in quotes. I am assuming that column E actually contains numeric values.

Replace your If statement with:

            If .Range("E" & i).Value >= 2 And .Range("E" & i).Value <= 100 Then

 

[LNG2013]

First, don't put numeric values in quotes. I am assuming that column E actually contains numeric values.

Replace your If statement with:

            If .Range("E" & i).Value >= 2 And .Range("E" & i).Value <= 100 Then

Thank you that works