괄호의 색상을 각각 연관된 색상으로 보이도록 하는 방법 점 알려주세요.

Sub ColorPairing()
    Dim Cell As Range, Text As String, iCnt As Long, i As Long
    
    Application.ScreenUpdating = False
    For Each Cell In Selection.Cells
        Text = Cell.Value2
        iCnt = 0
        If Not Cell.HasFormula Then
        For i = 1 To Len(Text)
            If Mid(Text, i, 1) = "(" Then
                iCnt = iCnt + 1
                Cell.Characters(i, 1).Font.ColorIndex = iCnt * 2 + 1
                Cell.Characters(i, 1).Font.Bold = True
            ElseIf Mid(Text, i, 1) = ")" Then
                Cell.Characters(i, 1).Font.ColorIndex = iCnt * 2 + 1
                Cell.Characters(i, 1).Font.Bold = True
                iCnt = iCnt - 1
                If iCnt < 0 Then iCnt = 0: Cell.Characters(i, 1).Font.Underline = True
            End If
        Next i
        End If
    Next Cell
    Application.ScreenUpdating = True
    MsgBox "짜잔~~~"

End Sub