How2 Delete "Not exist" charts/sheets?

[fatfish]

Hi all,

I created the macro to delete charts..
Also I add a button to the menu and wanna click the button
to delete all the used charts.

The problem is: I wanna use one button to "clean" ALL the "used
charts,
but some of those charts may not exist (because I use different macr
to
create different charts), so Excel can not find them and will ask me t
debug.
e.g.
Sheets("Chart TC123").Select
ActiveWindow.SelectedSheets.Delete

and "Chart TC123" doesn't exist!
How to avoid the error message

 

[Tom Ogilvy]

On Error Resume Next
Sheets("Chart TC123").Select
ActiveWindow.SelectedSheets.Delete
On Error goto 0

 

[Amedee Van Gasse]

Hi all,

I created the macro to delete charts..
Also I add a button to the menu and wanna click the button
to delete all the used charts.

The problem is: I wanna use one button to "clean" ALL the "used"
charts,
but some of those charts may not exist (because I use different macro
to
create different charts), so Excel can not find them and will ask me
to debug.
e.g.
Sheets("Chart TC123").Select
ActiveWindow.SelectedSheets.Delete

and "Chart TC123" doesn't exist!
How to avoid the error message?

You could use something like this:

Sub DeleteMySheet(MySheetName As String)
Dim sh As Worksheet
For Each sh In ActiveWorkbook.Sheets
If sh.Name = MySheetName Then sh.Delete
Next sh
End Sub

 

[fatfish]

Today is my lucky day

Thanks to Tom for your very simple and effective answer!
Thanks again to Amedee for your very logical solution! ;

 

[fatfish]

Today is my lucky day

Thanks to Tom for your very simple and effective answer!
Thanks again to Amedee for your very logical solution! ;