Change to Suit: (This worked for me) << on a smaller scale

Sub Macro7()
ActiveSheet.Range("$A$1:$E$10").AutoFilter Field:=1, _
Criteria1:=Range("CR")(1), Operator:=xlOr, _
Criteria2:=Range("CR")(2)
End Sub

Jim May

"RCL" wrote in message
oups.com:

- My Data Table is located in sheet2
- It has a first column with month numbers (1,2, 3, 4...)

In sheet 4 I have
- Value 1 in A1
- Value 2 in B1
- Named Range "CR" refers to Range("A1:B1")
(it is a public named range)