Grazie mille per i consigli!
in ogni caso se scrivo nel modo seguente:
Sub Macro1()

For Index = 1 To 10
Charts.Add
ActiveChart.ChartType = xlColumnClustered
ActiveChart.SetSourceData Source:=Sheets("Foglio1").Range(Cells(Index, 1), Cells(Index, 3)), PlotBy _
:=xlColumns
ActiveChart.Location Where:=xlLocationAsObject, Name:="Foglio1"
Next Index
End Sub
quando compila genera il seguente errore:

"errore di run-time '1004'
metodo 'cells' dell'oggetto '_global' non riuscito"