How2 Delete "Not exist" charts/sheets?

F

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
 
T

Tom Ogilvy

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

Amedee Van Gasse

fatfish said:
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?
Click to expand...

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
 
F

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! ;
 
F

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! ;
 
Top