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