Проверка на дубль номеров в телефонном справочнике

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim Stolbcy: Stolbcy = Array(1, 2, 4, 5)  ' Контролируемые столбцы
    Dim a, i&, TestRa As Range, TagVal, TagRow1&, Uslovie As Boolean, StrMessage$
    Dim temp$, St
    Set TestRa = Me.Range(Me.Cells(2, 1), Me.Cells(Me.UsedRange.Rows.Count, "E"))
    If Application.Intersect(Target, TestRa) Is Nothing Then Exit Sub
    If Target Is Nothing Then Exit Sub
    a = TestRa.Value
    temp = ""
    For Each St In Stolbcy
        temp = temp & Me.Cells(Target.Row, St).Value
    Next St
    TagVal = temp
    TagRow1 = Target.Row - 1
    StrMessage = "Номер дублируется в строке :" & vbCrLf
    For i = 1 To UBound(a, 1)
        temp = ""
        For Each St In Stolbcy
            temp = temp & a(i, St)
        Next St
       If TagRow1 <> i Then
            If temp = TagVal Then
                TestRa.Cells(i, 5).Interior.ColorIndex = 36
                TestRa.Cells(i, 5).Select
                StrMessage = StrMessage & (i + 1) & vbCrLf
                Uslovie = True
            End If
        End If
    Next i
    If Uslovie Then
        MsgBox StrMessage
    End If
End Sub