Sub Top10Filter() ' Top 12 Revenue Records Worksheets("SalesReport").Select Range("A1").AutoFilter Range("A1").AutoFilter Field:=6, Criteria1:="12",Operator:=xlTop10Items End Sub