Modifying the Microsoft code, here's how to delete ALL charts in a workbook:

Sub Delete_All_Charts()
Dim ws As Worksheet, co As ChartObject
For Each ws In ActiveWorkbook.Worksheets
For Each co In ws.ChartObjects
co.Activate
ActiveWindow.Visible = False
Selection.Delete
Next co
Next ws
End Sub

--
Toby Erkson
Oregon, USA

"Toby Erkson" wrote in message
...
Dalgleish ;-)
From the http://peltiertech.com/Excel/Charts/FixFonts.html link you
supplied,
the last one (XL2000: Error Copying Worksheets...) I got this
http://support.microsoft.com/default...;EN-US;Q215573
and it gave me the answer. Now to incorporate it into my code.

Thank you :-)
--
Erkson