图表对象删除错误

我正在做清晰的function。 每当没有图表对象删除,它popup一个错误。 有没有办法让它没有错误? 如果没有清楚的图表,则保持原样。

Sheet6.ChartObjects.Delete 

一种方法是…

 On Error Resume Next Sheet6.ChartObjects.Delete On Error GoTo 0