Michel,

sorry.

add this in the declarations section of the module

Global objexcel as Excel.Application

also update other code to

Public Sub NewExcelWindow()
Set objexcel = New Excel.Application
objexcel.Visible = True
objexcel.Workbooks.Add

End Sub

which will open a new book aswell


good Luck
ross