[VBA]シート上のグラフを全削除

シート上にある全てのグラフ（チャート）を削除したい。

Sub removeGraph()
  For Each sh In Worksheets
    sh.ChartObjects.Delete
  Next sh
End Sub

--追記--
上記では削除出来ていないような…
一見消えている様に見えるが、ChartObjectsのCountで見る限り消えるものと消えないものがあったりなかったり
[Excel2003]


とりあえず、これで凌ぐ

Sub removeGraph()
  For Each sh In Worksheets
    For Each chart In sh.ChartObjects
      chart.Delete
    Next chart
  Next sh
End Sub