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.
|