Sub TestMacro()
'
' TestMacro Macro
' This is a test macro
'

'
    ActiveCell.FormulaR1C1 = "This is a macro workbook"
    Range("A2").Select
End Sub