How2 Delete "Not exist" charts/sheets?
 

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

--
Message posted from http://www.ExcelForum.com

How2 Delete "Not exist" charts/sheets?
 

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

--
Regards,
Tom Ogilvy

"fatfish " wrote in message
...
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?


---
Message posted from http://www.ExcelForum.com/

How2 Delete "Not exist" charts/sheets?
 

fatfish wrote:

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


--
To top-post is human, to bottom-post and snip is sublime.

How2 Delete "Not exist" charts/sheets?
 

Today is my lucky day:)

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

--
Message posted from http://www.ExcelForum.com

How2 Delete "Not exist" charts/sheets?
 

Today is my lucky day:)

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

--
Message posted from http://www.ExcelForum.com