VBA filter data by cell value

[VBA learner ITG]

Good morning all,

I was wondering if anyone has come across a code which can filter data based on a cell value.

For example: If i have a number in cell A1 say = 2. (which is a formula)

and

Column Header in in row A39 through to AF39 and metadata below.

Code to apply filter and in column A39 select everything based on cell A1?

is this achieveabe?

 

[BarryL]

in simple terms its

Sub test()
Range("A39:AF" & Range("AF" & Rows.Count).End(xlUp).Row).AutoFilter field:=1, Criteria1:=Range("A1").Value
End Sub

 

[VBA learner ITG]

Thank you it works like a charm it saves me having to manually cycle through 400 sheets manually.

you don't know how much time this has saved me