you can use the chart  collection to count the charts  then loop through them
to delete  the charts


air code here


icount = workbooks.charts.count

for x = 1 to icount

workbooks.chart(x).delete

next x

This is air code but is should be close enough to give you what you need...