Sto popolando un foglio excel con i dati del DB

Ho un problema
Non riesco a cambiare il foglio di lavoro

Ho 7 foglio di lavoro:
Lun
Mar
Mer
Gio
Ven
Sab
Dom

Quando gli dico di passare al foglio Mar non funziona, però se gli dico di stamparli me lo fa correttamente

Vi riporto il codice:

Dim appExcel As New Excel.Application
Dim cartExcel As Excel.Workbook
Dim foglioExcel As Excel.Worksheet
Set appExcel = New Excel.Application ' crea una nuova applicazione Excel
Set cartExcel = appExcel.Workbooks.Open(App.Path & "\Alimentazione.xls") ' apre un workbook

Set foglioExcel = cartExcel.Sheets("Lun")

codice sta stampare

Set foglioExcel = cartExcel.Sheets("Mar")

codice sta stampare

appExcel.Worksheets("Lun").PrintOut
appExcel.Worksheets("Mar").PrintOut


Cosi facendo lui mi popola il foglio Lun, poi mi ripopola il foglio Lun senza passare a Mar, però quando vado in stampa, mi stampa Lun pieno di dati e Mar vuoto

Il problema sicuramente sta in:
Set foglioExcel = cartExcel.Sheets("Mar")

Mi dite come posso correggerla????

Ciao e grazieeeee