autofilter [Excel macro]

option explicit

public sub auto_filter()

  dim i as long
  for i = 1 to 1000
    cells(1+i, 2).value = i
  next i

  cells(1,2).value = "Choose one"

' range(cells(1,2), cells(1001,2)).select
' selection.autofilter
'
' or:
'
  range(cells(1,2), cells(1001,2)).autofilter

  excel.columns(2).columnWidth=20

end sub