Hello,

When creating charts in workbooks, excel will assign a number to it. So if I
have 10 charts through out my project I should have charts numbered 1 thru
10. But if I delete a few and create a few more, the numbering will no
longer be sequential. When automating certain processes it becomes a little
difficult when charts have been numbered in this way.

example.

If I wanted to perform some operation on 4 of the 10 charts within a FOR
NEXT loop, it would be difficult if the charts were numbered 2,4,5 and10.

For Var = 1 to 4

ActiveSheet.ChartObjects("Chart "& Var).Activate

blah

blah

blah

Next



How does one deal with this dilemma? I have looked (seems like everywhere)
for a place where I can re-number the charts. Or are there other options?



Thanks,

Gerry

Try...

Sub Macro1()
Dim objchart As ChartObject
For Each objchart In ActiveSheet.ChartObjects

'MsgBox objchart.Name
'Use a Select CAse statement or IF condition to filter the 4 charts

Next
End Sub

--
Jacob


"GC" wrote:

> Hello,
>
> When creating charts in workbooks, excel will assign a number to it. So if I
> have 10 charts through out my project I should have charts numbered 1 thru
> 10. But if I delete a few and create a few more, the numbering will no
> longer be sequential. When automating certain processes it becomes a little
> difficult when charts have been numbered in this way.
>
> example.
>
> If I wanted to perform some operation on 4 of the 10 charts within a FOR
> NEXT loop, it would be difficult if the charts were numbered 2,4,5 and10.
>
> For Var = 1 to 4
>
> ActiveSheet.ChartObjects("Chart "& Var).Activate
>
> blah
>
> blah
>
> blah
>
> Next
>
>
>
> How does one deal with this dilemma? I have looked (seems like everywhere)
> for a place where I can re-number the charts. Or are there other options?
>
>
>
> Thanks,
>
> Gerry
>
>
> .
>