Ammesso e non concesso che il codice sia giusto .... (io sto solo interpretando il suggerimento di Oregon)

codice:
Dim AppExcel As New excel.Application
Dim cartExcel As excel.Workbook
Dim foglioExcel As excel.Worksheet

Set AppExcel = New excel.Application
Set cartExcel = AppExcel.Workbooks.Open(App.Path & "/MODELLO")
Set foglioExcel = AppExcel.Worksheets.Item(1)