Mega Code Archive

 

Categories / VisualBasic Script / Excel

 

Produces the top 10 revenue records

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