Just a guess here, but maybe this:
Selection.AutoFilter
Range("SEA").AdvancedFilter Action:=xlFilterInPlace, Unique:=True

Selection.AutoFilter
Range("SEAMORN").AdvancedFilter Action:=xlFilterInPlace, Unique:=True

Regards,
Ryan---

--
RyGuy


"Bull" wrote:

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 the one "SEA".
How do I
filter using two ranges?

Sub sea()
'
' sea Macro
' Macro recorded 1/10/2009 '


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