Input box for filter

[Geeboy30]

Hello

I have the following code

Dim ws As Worksheet
    AutoFilterMode = False
    For Each ws In ActiveWorkbook.Worksheets
    ws.Activate
    Cells.Select
    Selection.AutoFilter
    ActiveSheet.Range("$A$1:$N$49").AutoFilter Field:=5, Criteria1:="<>"
    ActiveSheet.Range("$A$1:$N$49").AutoFilter Field:=2, Criteria1:="<>*480*", _
        Operator:=xlAnd
        
   Range("A2:A50").SpecialCells(xlCellTypeVisible).EntireRow.ClearContents

Basically, I want an input box to input the text 480 or some other 3 digit number

I can get the input box but I cannot make the filter to not contain the contents of the input box

Any help would be appreciated

cheers

[mojo249]

Make sure you enclose any code in code tags (# on the icon bar).

Is this what you mean??

Sub TEMP()

Dim ws As Worksheet
Dim varSearch As String

varSearch = InputBox(Prompt:="Enter search string.", Title:="ENTER SEARCH STRING", Default:="")

AutoFilterMode = False

For Each ws In ActiveWorkbook.Worksheets
    ws.Activate
    Cells.Select
    Selection.AutoFilter
    ActiveSheet.Range("$A$1:$N$49").AutoFilter Field:=5, Criteria1:="<>"
    ActiveSheet.Range("$A$1:$N$49").AutoFilter Field:=2, Criteria1:="<>*" & varSearch & "*", Operator:=xlAnd
Next ws

End Sub

[Geeboy30]

Fantastic, thank you very much for your help