문자색칠 VBA 작성

Sub HighlightMatchingEmails()
    Dim cellA As Range, cellB As Range
    Dim wordsA As Variant, wordsB As Variant
    Dim wordA As Variant, wordB As Variant
    Dim atPos As Long, i As Long, startPos As Long
 
    For i = 1 To Cells(Rows.Count, "A").End(xlUp).Row
        Set cellA = Cells(i, 1)
        Set cellB = Cells(i, 2)
 
        wordsA = Split(cellA.Value, ",")
        wordsB = Split(cellB.Value, " ")
 
        <a href="http://cellB.Font.Co" target="_blank" rel="noopener">cellB.Font.Co</a>lor = RGB(0, 0, 0)
 
        For Each wordA In wordsA
            wordA = Trim(wordA)
            For Each wordB In wordsB
                atPos = InStr(wordB, "@")
                If atPos > 0 And InStr(Left(wordB, atPos - 1), wordA) > 0 Then
                    startPos = InStr(cellB.Value, wordB)
                    If startPos > 0 Then
                        cellB.Characters(startPos, atPos).Font.Color = RGB(255, 0, 0)
                    End If
                End If
            Next wordB
        Next wordA
    Next i
End Sub