Simply
SourceRange.AutoFilter Field:=7

Recording operations as a macro easily answers most questions of this kind.
Try it!

Regards,
Stefi

€žshiro€� ezt Ã*rta:

On auto filter,usually there is a criteria '(All)'.What
is the match word in the vba to represent '(All)' to
show all records?

here is my filter
SourceRange.AutoFilter Field:=7, _
Criteria1:="=" & WS.Range("A10").Value

I tried to add word (All) but it returns no record.
Thnk's

Rgds,

Shiro