Ecco il codice,però tieni presente che a monte esiste la procedura che mi permette di importare i dati e funziona correttamente,e poi viene eseguita questa procedura con alla fine la chiusura del processo EXCEL che non va.

''Formatto il secondo foglio per la creazione del grafico****************************************
Set xlsFoglio = xlsCartella.Worksheets(2)

With xlsFoglio.Range("A1", "E2")
.Interior.ColorIndex = 37
.MergeCells = True
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlBottom
.Borders.LineStyle = xlContinuous
End With

With xlsFoglio.Range("A3", "EZ1")
.Font.Bold = True
.ColumnWidth = 20
.Font.Color = 37
End With

xlsFoglio.Name = "Grafico Auguri" 'Nome del Foglio Excel
xlsFoglio.Cells(1, 1) = "Grafico Auguri"


AdoRs.Open "SELECT DISTINCT tAnagrafica.NomeAzienda, count(tRiferimenti.Auguri) AS Auguri" _
& " FROM tAnagrafica INNER JOIN tRiferimenti ON tAnagrafica.ID = tRiferimenti.ID_Anagrafica " _
& " Where tRiferimenti.Auguri <> 0 " _
& " GROUP BY tAnagrafica.NomeAzienda", AdoCn

Dim f As Integer
Dim g As Integer

f = 4
g = 3

While Not AdoRs.EOF
xlsFoglio.Cells(3, 1) = "NomeAzienda"
xlsFoglio.Cells(3, 2) = "Auguri"
xlsFoglio.Cells(f, 1) = AdoRs!NomeAzienda
xlsFoglio.Cells(f, 2) = AdoRs!Auguri

f = f + 1
g = g + 1
AdoRs.MoveNext
Wend

Charts.Add
ActiveChart.ChartType = xlCylinderColStacked
ActiveChart.SetSourceData Source:=Sheets("Grafico Auguri").Range("A3", "B" & g), PlotBy:=xlColumns
ActiveChart.Location Where:=xlLocationAsObject, Name:="Grafico Auguri"
ActiveChart.HasLegend = False
ActiveChart.ChartTitle.Characters.Text = "Grafico Auguri"
ActiveChart.Axes(xlValue).MajorUnit = 1
ActiveChart.Walls.Select
ActiveChart.SeriesCollection(1).Select
With Selection.Border
.Weight = xlThin
.LineStyle = xlContinuous
End With
Selection.InvertIfNegative = False
With Selection.Interior
.ColorIndex = 37
.Pattern = xlSolid
End With
ActiveChart.Walls.Select
With Selection.Border
.ColorIndex = 16
.Weight = xlThin
.LineStyle = xlContinuous
End With
Selection.Fill.UserPicture PictureFile:=App.path & "\immagini\Logo.gif", _
PictureFormat:=xlStretch
Selection.Fill.Visible = True
ActiveChart.Axes(xlCategory).Select
With Selection.TickLabels
.ReadingOrder = xlContext
.Orientation = 45
End With


ActiveSheet.Shapes("Grafico 1").IncrementLeft -183.75
ActiveSheet.Shapes("Grafico 1").IncrementTop -96.75
ActiveSheet.Shapes("Grafico 1").ScaleWidth 1.48, msoFalse, msoScaleFromTopLeft
ActiveSheet.Shapes("Grafico 1").ScaleHeight 1.62, msoFalse, _
msoScaleFromTopLeft

xlsCartella.Save
xlsCartella.Close
xlsApplicazione.Quit