Hi Gordon

Try
Sub Setfilter()

Selection.AutoFilter
Selection.AutoFilter Field:=1, Criteria1:="10",
Operator:=xlTop10Items

End Sub

--
Regards

Roger Govier


"Gordon" wrote in message
...
Hi...

I'm stuck. I'm after some code that will allow a macro button to do
the
following...

1. reset all auto filters to standing position (all unfiltered)
2. then filter range a1:a100 for top 10 values without a dialog box
popping
up.

It all needs to be easy and intuitive, push of a button feel without
the
user thinking about anything.

Thanks...you're my only hope!

Gordon.