filter and delete with variable name used not working

[thelad]

Hi,

I have macro working whereby it will delete all rows that have less than number four in column E.

However I want a variable to be set in stead of me inputting 4 in the code however it is not working when i set a variable. Any ideas? if you need full code let me know

Below is not full code but the "<HeroName" is not working but "<4" is?

Dim HeroName As String
HeroName = Range("E4").Value (Value is 4 in this cell)
DeleteValue = "<HeroName"
'DeleteValue = "<4" (works when i do this)

Filter code below and it works

.Range("E1:E" & .Rows.Count).AutoFilter Field:=1, Criteria1:=DeleteValue

 

[My Aswer Is This]

Try this:

Sub Filter_Me()
'Modified 4-3-18 12:02 AM EDT
Application.ScreenUpdating = False
Dim Lastrow As Long
Lastrow = Cells(Rows.Count, "E").End(xlUp).Row
Dim HeroName As Long
HeroName = Range("E4").Value
With Range("E1:E" & Lastrow)
     .AutoFilter 1, Criteria1:="<" & HeroName
     .Offset(1).Resize(.Rows.Count - 1).SpecialCells(xlCellTypeVisible).EntireRow.Delete
    .AutoFilter
End With
Application.ScreenUpdating = True
End Sub