For Each _CHeaders (gb.chart)

Dim hCHeaders As _CHeaders
Dim aString As String
For Each aString In hCHeaders
  ...
Next