title: Work Sheet Event throws an exception called type mismatch error
body: <p>Whenever I run this, it is showing me Type mismatch Error (in <code>If Target.Value = "CustomChoice"</code>)</p>
  
  <pre><code>Private Sub Worksheet_Change(ByVal Target As Range)
  If Target.Value = "CustomChoice" Then
  Range("P12").Value = "Enter Dates"
  Range("P13").Interior.Color = vbGreen
  Range("R13").Interior.Color = vbGreen
  Else
  Range("P12:R13").Clear
  Range("Q10").Select
  End If
  End Sub
  </code></pre>