How to capture multiple cases of the same word with Select-Case

[s_martini]

Hi friends,

I have a VBA code which uses a Select-Case structure.

Let's say I have the following cases:

case is = "apples"
case is = "oranges"

Now, I have expanded the model so now I have cases such as "apples1", "apples 1", "apples are healthy", "the apples" etc. all permutations containing "apples" at some point in the sentence.

How can I include all of them under case is = "apples" without having to specify them one by one ?

Thanks.

 

[Joe4]

Here is one way to structure it:

    Dim cell as Range

    For each cell in Range(...)
        Select Case True
            Case cell.Value Like "apples*"
                 ...