title: Excel VBA - Select Case - Multiple Test Expressions
body: <p>I am attempting to write a Select Case Statement that looks at a range of values throughout the A column  and then preforms the statements.</p>
  
  <p>So far I can get my select case statement to work for row A2 but I can't get it to work with a range of values without giving me a, 'Type Mismatch Error'. </p>
  
  <p>Working</p>
  
  <pre><code>Select Case range("A2").Value
  
  Case "01"
      range("G2").Value = "Admin"
      range("I2").Value = "None"
      range("J2").Value = "None"
      range("K2").Value = "None"
      range("H2").Value = "No Affiliation"
      range("T2").Value = "99999"
  </code></pre>
  
  <p>Not Working (<strong><em>Type Mismatch Error</em></strong>)</p>
  
  <pre><code>Select Case Range ("A2:A1000").Value
  
  Case "01"
      range("G2").Value = "Admin"
      range("I2").Value = "None"
      range("J2").Value = "None"
      range("K2").Value = "None"
      range("H2").Value = "No Affiliation"
      range("T2").Value = "99999"
  
  Case "A"
      range("G2").Value = "Dealer"
      range("I2").Value = "None"
      range("J2").Value = "None"
      range("K2").Value = "None"
  </code></pre>