Dim Grafico As ChartObject

'foglio in cui si trovano i grafici
Sheets("Grafico").Select


For Each Grafico In ActiveSheet.ChartObjects
Numero_Grafico = Numero_Grafico + 1
Next


ce l'ho fatta....mannaggia!

ora mi manca solo d rinominare i grafici.....appena c riescovi faccio sapere!


VaneX