Questi grafici mi stanno facendo dannare...

    Charts.Add
    ActiveChart.ChartType = xlColumnStacked
    ActiveChart.SetSourceData Source:=Sheets("Foglio7").range("C1,C3"), PlotBy _
        :=xlColumns
    ActiveChart.SeriesCollection.NewSeries
    ActiveChart.SeriesCollection(2).Values = "=(Foglio7!R1C8,Foglio7!R3C8)"
    ActiveChart.Location Where:=xlLocationAsObject, Name:="Foglio7"

Adesso tolgo il riferimento al Foglio.

    Charts.Add
    ActiveChart.ChartType = xlColumnStacked
    ActiveChart.SetSourceData Source:=Sheets("Foglio7").range("C1,C3"), PlotBy _
        :=xlColumns
    ActiveChart.SeriesCollection.NewSeries
    ActiveChart.SeriesCollection(2).Values = "=(R1C8,R3C8)"
    ActiveChart.Location Where:=xlLocationAsObject, Name:="Foglio7"

E vediamo se va...

No, non va.

Ecco, sono arrivato alla conclusione che le celle per impostare SeriesCollection.Values devono essere espresse in questo modo:

"=(Foglio7!R1C8,Foglio7!R3C8)"

Questo quando sono discontinue.
Quando sono continue, invece, la macro registrata le esprime in questo modo:

"=Foglio7!R1C8:R4C8"

Ma credo che anche esprimendole con la notazione usata automaticamente per le selezioni di celle discontinue non cambi niente.
Proviamo.

ActiveChart.SeriesCollection(2).Values = "=(Foglio7!R1C8,Foglio7!R2C8,Foglio7!R3C8,Foglio7!R4C8,Foglio7!R5C8)"

Vediamo se funziona...

Sì... dopo qualche improprietà commessa, devo dire di sì!

---