or in latter
versions of XL (XP up), presents the 'New File'
Task Pane which can then either open a blank
workbook, templates on your computer or
templates at Office Online.
VBA
Sub wbNew()
Dim wb As Workbook
Set wb = Workbooks.Add 'Do what you want with workbook here using wb
variable
End Sub