Case statement if string contains
<p>I am trying to do a select case statement where its based off a string that I have stored in a variable contains certain words. From what I've seen everywhere I've looked I have it right, but its not working. I keep getting "Compile Error: Invalid Qualifier" on my variable "Model", in the case statement, i.e Case Model.Contains("GR CHER").</p>

<p>Does anyone see something that Im missing here?</p>

<pre><code>i = 2
Model = Sheets("Data").Cells(i, 8)

While Not IsEmpty(Cells(i, 1))
    Select Case True
        Case Model.Contains("GR CHER")
            Model = "Grand Cherokee"
        Case Model.Contains("CHRGR")
            Model = "Charger"
        Case Model.Contains("HLLCT")
            Model = "HellCat"
        Case Model.Contains("R1500")
            Model = "Ram 1500"
        Case Else
            Rows([i]).EntireRow.Delete
            i = i - 1
    End Select

    Sheets("Data").Cells(i, 8).Value = Model

    i = i + 1
Wend
</code></pre>