Criteria checking Code

[mark curtis]

Dear all,

I have a variable called strCriteria and I use a select case to check a project status then check many variables, problem is my code picks up some of the strCriteria and sometimes does not?

Is it the In function that is wrong?


strCriteria = "In('£0 0#','< MANDATORY
>','<Mandatory>','Missing','tbc','tba','n/a','missing')"

For i = 1 To intLastRow - 1

Select Case rngPrSt(i)
Case Is = "Open", "Complete"
If (IsEmpty(rngPrM(i)) Or rngPrM(i) = strCriteria) Then
rngPrM(i).Interior.ColorIndex = 6
strComments = "Project Manager, "
End If