For Each Chart (gb.chart)

Dim hChart As Chart
Dim aVariant As Variant
For Each aVariant In hChart
  ...
Next