Try this

Number = Range("num_1").Value
Selection.AutoFilter Field:=5, Criteria1:=Number

--
Regards,
Tom Ogilvy

"JohnUK" wrote:

Hi,
I have been trying to get a filter to change depending on a number in a range.
Reason:
My worksheet has data that contains numbers from 60 to 70 in one of the
columns (Filtered) and If I was to enter 65 say, into my range (num_1) I then
want the macro to filter on 65.

My poor attempt showing what I think is the key part of the code

Number = Range("num_1").Value
Selection.AutoFilter Field:=5, Criteria1:=" & Number & "

For some reason it filters on CUSTOM

Any help greatly Appreciated
John