Excel VisualBasic Script

Sub workbookAdd()
    Workbooks.Add
    numWorkbooks = Workbooks.Count
    Worksheets.Select
End Sub