title: What's a very simple way to enter key <> value pairs in VBA?
body: <p>I'm writing a VBA script where I want the following two functionalities (pseudo-code):</p>
  
  <pre><code>C5 = "Hello"
  D6 = "World"
  E2 = 23.45
  a: Place the values in the correct cell in the worksheet
  and
  b: Check if the cells contain the correct values
  </code></pre>
  
  <p>I'll be sharing this with coworkers that have never written a script in their lives (but they are able to use Excel-formulas like vlookup etc). Therefore, I need to be able to very simply write the cell number and the corresponding value next to each other. </p>
  
  <pre><code>Sub NewbieProofSub
      Set dict = CreateObject("Scripting.Dictionary")
      dict.Add "C5", "Hello"
      dict.Add "D6", "World"
      dict.Add "E2", 23.45
  
      ' Inserting values:
      Dim v As Variant
      Dim s As String
      For Each v In dict.Keys
          s = v
          Range(s).Value = dict.Item(v)
      Next
  
      dict.Add "F3", 13
  
      ' Checking values
      For Each v In dict.Keys
          s = v
          If Range(s).Value = dict.Item(v) Then
          MsgBox ("The value in " &amp; s &amp; " is " &amp; dict.Item(v))
          Else
          MsgBox ("The value in " &amp; s &amp; " is not " &amp; dict.Item(v))
          End If
      Next
  
  End Sub
  </code></pre>
  
  <p>These will be divided into two modules, but I included both here to illustrate.</p>
  
  <p>I'm quite content, but I wonder if it's possible to make it <em>even simpler</em>, avoiding all the lines with <code>dict.add</code>? Something like:</p>
  
  <pre><code>' Fill this list with your desired values on the format:
  ' Cell, Value (Remove the existing lines)
  
  dict.add {
  "C5", "Hello"
  "D6", "World"
  "E2", 23.45
  }
  </code></pre>
  
  <p>Is something like this possible?</p>