Sub MainProc()
    ActiveSheet.Range("A1").Cells(1, 1).Value = "hello, world"
End Sub