I don't really understand why need to

set c = nothing

at the end?

Martin's just cleaning up after himself. When object variables are set, it's
better to clear them yourself than to rely on VB doing it. Just in case.

- Jon
-------
Jon Peltier, Microsoft Excel MVP
Tutorials and Custom Solutions
http://PeltierTech.com
_______


"Terry" wrote in message
...
Martin and Jon, Thanks alot.

Martin's solution could be used for worksheets if

dim c as worksheet

Both of your solution works well for me.

I don't really understand why need to

set c = nothing

at the end?

"Martin Fishlock" wrote:

Terry try this. It may need a little adapting as I'm not quite sure of
your
name specification.

Option Explicit
' deletes all charts in the range ch0..ch9
Sub deletecharts()
Dim c As Chart
Dim chartname As String

Application.DisplayAlerts = False
For Each c In ActiveWorkbook.Charts
chartname = LCase(c.Name)
If Left(chartname, 2) = "ch" Then ' first two letters
If IsNumeric(Mid(chartname, 3, 1)) Then ' next is number
If Len(chartname) = 3 Then ' ok can delete it
c.Delete
End If
End If
End If
Next c
Set c = Nothing
Application.DisplayAlerts = True

End Sub

--
Hope this helps
Martin Fishlock
Please do not forget to rate this reply.


"Terry" wrote:

I need to delete all worksheets with name contains "Ch", from "Ch1"
until
"Ch(n)". How to do it? All these sheets are charts.