lookup [Excel macro]

option explicit

public sub lookup_()

  application.cells(1,1).value = 1 
  application.cells(2,1).value = 2 
  application.cells(3,1).value = 3 
  application.cells(4,1).value = 4 

  application.cells(1,2).value = "one"
  application.cells(2,2).value = "two"
  application.cells(3,2).value = "three"
  application.cells(4,2).value = "four"

  application.cells(1,4).value = 3
  application.cells(1,5).value = "=lookup(d1,a1:b4)" ' Note: the comma (,) that turns into a semicolon (;)

end sub