Attribute VB_Name = "Module1"
Sub TestModule()

' ***** http://free-excel-vba.blogspot.com/ *****

Worksheets(1).Cells(1, 1).Value = "15"
Worksheets(1).Cells(1, 2).Value = "30"


End Sub