Dim myExcel As Excel.Application
Set myExcel = New Excel.Application
myExcel.Workbooks.Add
myExcel.Visible = True