title: Excel VBA Using Select Case to delete cells in a Range
body: <p>I have a range of data, and I am programming to remove a names from a range. Here is my code.</p>
  
  <pre><code>Option Explicit
  
  Sub SelectCase()
  
  Dim msg As String
  Dim VarCase As Range
  
  Set VarCase = Worksheets("Data").Range("D:D")
  
  Select Case VarCase
  
      Case VarCase = "Zamora"
      VarCase.Delete
  
      Case VarCase = "John"
      VarCase.Delete
  
  End Select
  
  End Sub
  </code></pre>
  
  <p>I am getting an error message Run-time error '13' Type mismatch, is this due to trying to use a string ("Zamora/John") with a range?</p>