range sort [Excel macro]

option explicit

public sub range_sort()

  cells( 1,1) = "one"
  cells( 2,1) = "two"
  cells( 3,1) = "three"
  cells( 4,1) = "four"
  cells( 5,1) = "five"
  cells( 6,1) = "six"
  cells( 7,1) = "seven"
  cells( 8,1) = "eight"
  cells( 9,1) = "nine"
  cells(10,1) = "ten"
  cells(11,1) = "eleven"
  cells(12,1) = "twelve"

  cells( 1,2) = 1
  cells( 2,2) = 2
  cells( 3,2) = 3
  cells( 4,2) = 4
  cells( 5,2) = 5
  cells( 6,2) = 6
  cells( 7,2) = 7
  cells( 8,2) = 8
  cells( 9,2) = 9
  cells(10,2) =10
  cells(11,2) =11
  cells(12,2) =12

  range("A3:A10").sort range("A3")

end sub