You don't want to try to activate a hidden sheet (and don't need to).

Dim cObj as ChartObject
for each cObj in Worksheets("sheet2").ChartObjects
cObj.copy
Range("C9").Select
Activesheet.Paste
Next

--
Regards,
Tom Ogilvy


msnews.microsoft.com wrote in message
...
Hi,
how do I copy all charts in hidden sheet using a loop, my idea is
display a preview of each chart in a main sheet, and I'd like to use a
loop
something like

for each chart in sheet2
chart(x).activate
chart(x).copy
sheet1.select
activesheet.paste
next x

well that's the main idea, any help will be greatly appreciated, thanks !!