multiple "like" conditions

[onion456]

Hi all;

I use 'like' statements in vba fairly regularly- example:

passcheck = activecell Like "*Pass*" 
 'and then..
If passcheck = True Then 
    totalpasscount = totalpasscount + 1 
End If 

i was wondering if anyone knew a way to add more than one condition to a "like" statement- such as...

passcheck = activecell like "Pass","P","*ass"

which would sure help cause then i wouldnt have to code the same cellcheck 3 times. anyone know if its possible?

Thanks

[onion456]

actually... the more i think about it, the more i doubt its an option.

i actually need it to set the cell check to true based on an OR statement: such as:

redwhitenbluecheck = activecell Like "red" Or "white" Or "blue" 

anyway, if you have any input, its appreciated. =)