John

You don't need to put them into an array. Try the
following

For Each ch In ActiveSheet.ChartObjects
MsgBox ch.Name
Next ch

Tony
-----Original Message-----
I want to fill an array with the charts on a worksheet so
that I can loop through each.
i.e.
chartArray = Array(Chart1, Cahart2)

For each a in chartArray
'do something
next a

This is ok, however I don't know the chart names and they
will change from time to time.

So, how do I populate the array with the chartobjects
names on the activesheet?

John
.