How do you write a routine using VBA. A simple exaple would be a macro that
creates the following sub...

Private Sub Workbook_Open()
ThisWorkbook.IsAddin = False
Application.Run "TestOne"
End Sub

Thanks a lot for any help.

Regards