Font size [Excel macro]

option explicit

public sub font_size()

  dim i as long
  for i = 1 to 50

    cells(i,1).select
    selection.value     = i
    selection.font.size = i

  next i

end sub