Using Two Range Criterion in Advanced Filter
 

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