vba删除图表，而不删除Sheet页

Sub 在指定位置生成图表()
Set ab = Range("A7:G13") '生成图表的位置
Set bbb = ActiveSheet.ChartObjects.Add(0, 0, 0, 0)
bbb.Chart.ChartType = xlColumnClustered '柱形图
bbb.Chart.SetSourceData Source:=Sheets("Sheet1").Range("A1:B5") '数据源
With bbb
.Top = ab.Top
.Left = ab.Left
.Width = ab.Width
.Height = ab.Height
End With
End Sub
通过此代码，我在Excel的sheet1工作表的指定位置添加了一个图表，如果我在此(Sheet1)的其他指定位置中添加多个图表，我想通过代码，删除一些特定的图表，而未删除的图表和Sheet1页保留

此代码怎么写........ 谢谢

”我想通过代码，删除一些特定的图表“ 根据什么条件删除？

删除的语句是这样写的，比如你要删除Gragh2的话：

ActiveSheet.ChartObjects("Gragh 2").Activate
ActiveChart.Parent.Delete

下面代码删除当前工作表<br><br>sub 删除()<br>application.displayalerts = false<br>activewindow.selectedsheets.delete<br>application.displayalerts = true<br>end sub