title: Excel Dictionary not updating?
body: <p>I'm a relative newcomer to VB so am having real problems trying to understand how things fit together. I'm currently trying to use a global dictionary to store headers/column values so they can be accessed quickly when run (as the column numbers may change depending on content). However i'm struggling to make a dictionary work, it appears to add values but later in the code shows up as empty, i have no idea what i'm doing wrong and would appreciate any help.</p>
  
  <pre><code>Public dataHeaders As Dictionary
  
  
  Public Function getCases()
  
  Set dataHeaders = CreateObject("Scripting.Dictionary")
  
  For i = 1 To 100
      If IsEmpty(Worksheets("DATA").Cells(1, i)) Then
          Exit For
      Else
          dataHeaders.Add Worksheets("DATA").Cells(1, i), i
      End If
  Next
  
  
  For i = 1 To 10
  
      For j = 1 To 750
          If Worksheets("Summary").Cells(1, i) = Worksheets("DATA").Cells(dataHeaders("Checker"), j) Then
              Worksheets("Summary").Cells(2, i) = Worksheets("Summary").Cells(2, i) + 1
          End If
      Next
  Next
  
  End Function
  </code></pre>