For i = 1 To 7
   lzi = lzi & i
        For j = ez To lzi
            MyString = Cells(j, i).Value
            Select Case Len(MyString)
                Case Is = 0
                    Exit For
                Case Else
                    MyString = Left(MyString, InStr(MyString, "."))
                    MyString = Replace(MyString, ".", "")
            End Select
        '-- Should be altered to something like MyString.Font.Color:
      MyString = Not IsError(Application.Match( _
      Cells(j, i).Value), Columns("S:S"), 0)
    Next j
Next i