For Each List (gb.data)

Dim hList As List
Dim aVariant As Variant
For Each aVariant In hList
  ...
Next

Enumerate all elements in the List moving forwards.

See also