Why does this work

ActiveSheet.ChartObjects("1020").Activate

but this doesnt

Dim ChartName(12) As String
ChartName(0) = "1020"
I = 0
ActiveSheet.ChartObjects(ChartName(I)).Activate

works for me, I have a DIM for I too ...

Sub ShowMessage()
Dim ChartName(12) As String
Dim i As Long
ChartName(0) = "Chart 1"
i = 0
ActiveSheet.ChartObjects(ChartName(i)).Activate

End Sub


try
?ActiveSheet.ChartObjects(1).Name
in the immediate window to check that "1020" is correct - i assume so since
you said so, but safe to check



"Scooter" <(E-Mail Removed)> wrote in message
news:88918F5B-EB7F-426E-81F9-(E-Mail Removed)...
> Why does this work
>
> ActiveSheet.ChartObjects("1020").Activate
>
> but this doesnt
>
> Dim ChartName(12) As String
> ChartName(0) = "1020"
> I = 0
> ActiveSheet.ChartObjects(ChartName(I)).Activate
>
>

I get "Run-time error '1004': Application-defined or object-defined error"

"Patrick Molloy" wrote:

>
> works for me, I have a DIM for I too ...
>
> Sub ShowMessage()
> Dim ChartName(12) As String
> Dim i As Long
> ChartName(0) = "Chart 1"
> i = 0
> ActiveSheet.ChartObjects(ChartName(i)).Activate
>
> End Sub
>
>
> try
> ?ActiveSheet.ChartObjects(1).Name
> in the immediate window to check that "1020" is correct - i assume so since
> you said so, but safe to check
>
>
>
> "Scooter" <(E-Mail Removed)> wrote in message
> news:88918F5B-EB7F-426E-81F9-(E-Mail Removed)...
> > Why does this work
> >
> > ActiveSheet.ChartObjects("1020").Activate
> >
> > but this doesnt
> >
> > Dim ChartName(12) As String
> > ChartName(0) = "1020"
> > I = 0
> > ActiveSheet.ChartObjects(ChartName(I)).Activate
> >
> >
>

how about

?ActiveSheet.ChartObjects(0).Name

"Scooter" <(E-Mail Removed)> wrote in message
news:682D4580-411B-4BF9-849F-(E-Mail Removed)...
> I get "Run-time error '1004': Application-defined or object-defined error"
>
> "Patrick Molloy" wrote:
>
>>
>> works for me, I have a DIM for I too ...
>>
>> Sub ShowMessage()
>> Dim ChartName(12) As String
>> Dim i As Long
>> ChartName(0) = "Chart 1"
>> i = 0
>> ActiveSheet.ChartObjects(ChartName(i)).Activate
>>
>> End Sub
>>
>>
>> try
>> ?ActiveSheet.ChartObjects(1).Name
>> in the immediate window to check that "1020" is correct - i assume so
>> since
>> you said so, but safe to check
>>
>>
>>
>> "Scooter" <(E-Mail Removed)> wrote in message
>> news:88918F5B-EB7F-426E-81F9-(E-Mail Removed)...
>> > Why does this work
>> >
>> > ActiveSheet.ChartObjects("1020").Activate
>> >
>> > but this doesnt
>> >
>> > Dim ChartName(12) As String
>> > ChartName(0) = "1020"
>> > I = 0
>> > ActiveSheet.ChartObjects(ChartName(I)).Activate
>> >
>> >
>>

Hi,

If you have xl2007, including SP2, then this is a bug, which I have reported
to MS.

If the chartobjects name is a numeric string it appears it gets converted to
a true numeric value and then used to Index the chartobjects collection.
So it is actually treated as if you had written this,

ActiveSheet.ChartObjects(1020).Activate

Only work around is to use AlphaNumeric names for your chart objects.

Cheers
Andy
--

Andy Pope, Microsoft MVP - Excel
http://www.andypope.info
"Scooter" <(E-Mail Removed)> wrote in message
news:88918F5B-EB7F-426E-81F9-(E-Mail Removed)...
> Why does this work
>
> ActiveSheet.ChartObjects("1020").Activate
>
> but this doesnt
>
> Dim ChartName(12) As String
> ChartName(0) = "1020"
> I = 0
> ActiveSheet.ChartObjects(ChartName(I)).Activate
>
>