VBA 对命名范围的引用

Question

I have following code in which I have tried to applied 3 filters, now what I want is, to apply this filter criteria based on named range I have stored relevant value in specific cell and given names to that range

for first criteria ie >=200 named range is VOLUME

for second criteria ie >=0.07 named range is MOVE

for third criteria ie >=400 named range is STRENTH

So what are the changes that I need to make in following code?

Sub FILTER2()

'FILTER CRITERIA
ActiveSheet.Range("$A$2:$AC$500").AutoFilter Field:=6, Criteria1:=">=200", _
    Operator:=xlAnd
ActiveSheet.Range("$A$2:$AC$500").AutoFilter Field:=21, Criteria1:=">=0.07" _
    , Operator:=xlAnd
ActiveSheet.Range("$A$2:$AC$500").AutoFilter Field:=28, Criteria1:=">=400" _
    , Operator:=xlAnd

Range("A1").Select
End Sub

Answer 1

As per my comment, you might want to consider a With statement, better not to refer to ActiveSheet

Sub FILTER2()

With Sheet1 'Change according to your sheets CodeName
    .Range("$A$2:$AC$500").AutoFilter 6, ">=" & .Range("VOLUME")
    .Range("$A$2:$AC$500").AutoFilter 21, ">=" & .Range("MOVE")
    .Range("$A$2:$AC$500").AutoFilter 28, ">=" & .Range("STRENTH")
End With

End Sub

Answer 2

you can try defining a variable to contain the value of your named range. Named Range in your sheet as "Volume" then i can store that value in var namedRange1.

example below:

Sub FILTER2()  

namedRange1 = range("Volume")

'FILTER CRITERIA
ActiveSheet.range("$A$2:$AC$500").AutoFilter Field:=6, Criteria1:=">=" & namedRange1, _
    Operator:=xlAnd

....same with the other lines, just define new variable to contain new named range