This code tells how many charts on a specified sheet:
Worksheets("Sheet2").ChartObjects.Count
best wishes
--
Bernard V Liengme
Microsoft Excel MVP
http://people.stfx.ca/bliengme
remove caps from email
"musa.biralo" <(E-Mail Removed)> wrote in message
news:d5039367-d802-479f-8654-(E-Mail Removed)...
> Hi there,
>
> I like to check if sheet has any graph. And if it does copy the graph
> to new sheet (add sheet "Graphs" if none found). In this case there
> will be only one graph in one sheet.
>
> Thanks in advance.
> Musa