If you are using it in one cell, instead of keeping it separated by a comma, why don't you keep it separated by pipe.
And if you are using a range of cells, then try this
Code:If WorksheetFunction.CountIf(Worksheets("Name").Range("A2:A7"), ShD.Cells(C.Row, intYearCol).Value) > 0 Then 'Your code End If
Bookmarks