Code:
Select Case fcnCellText oRow.Cells(lngIndex)
Case "Y", "Y*"
oRow.Cells(lngIndex).Range.Select
oRow.Cells(lngIndex).Range.Shading.BackgroundPatternColor = wdColorRed
Case Else 'Do nonthing
End Select
You could use a Content Control dropdown "Yes/No"