Using Two Range Criterion in Advanced Filter

B

Bull

I am trying to use two named ranges in my Advanced Filter. Below is
my code, but does not work. It only works when I has "SEA". How do I
filter for ranges?

Sub sea()
'
' sea Macro
' Macro recorded 1/10/2009 by YNC(SW) Foreman
'

'
Range("A1:p99").AdvancedFilter Action:=xlFilterInPlace,
CriteriaRange:= _
Range("SEA", "SEAMORN"), Unique:=False
End Sub
 
Top