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" wrote in message
...
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