Excel VisualBasic Script

  1. Home
  2. VisualBasic Script
  3. Excel
  4. 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