Ho messo questo nel pulsante

Dim appExcel As New Excel.Application
Dim cartExcel As Excel.Workbook
Dim foglioExcel As Excel.Worksheet
Set cartExcel = Excel.Workbooks.Add
Set foglioExcel = Excel.Worksheets.Add

Ho aggiunto il riferimento, ora mandando in esecuzone e cliccando sul pulsante non va in error, ma non apre un nuovo foglio di excel

Cosa devo aggiungere????

Ciao e grazieeeeeee