проверить длинну текста в активной ячйке

[DMITRIY_78]

Что то у меня с проверкой текста тяжеловато! Ребята подскажите где что не так я делаю:

Private Sub Worksheet_Change(ByVal Target As Range)
 With ActiveCell
        Select Case Len(.Text)
            Case 1
            'После ввода первого знака добавляем перед ним код страны и скобку
            .Text = "+7(" & .Text
            Case 4
            'После ввода шестого знака добавляем в конце скобку
            .Text = .Text & ") "
            Case 9, 12
            'После ввода десятого и тринадцатого знака добавляем в конце дефис
            .Text = .Text & "-"
            Case 16
            'Удаляем семнадцатый знак сразу после его ввода
ActiveCell.BackColor = &H8080FF 'это можно не брат в расчет
MsgBox "Не бывает в номере телефона более 11 чифр, или более 16 знаков", vbInformation, "ИНФОРМАЦИЯ"
.Text = Left(.Text, 15)
ActiveCell.BackColor = &HFFFFFF 'это можно не брат в расчет
        End Select
End With
End Sub

[Elixi]

DMITRIY_78,
после ввода первого, второго ... десятого знака ничего не обрабатывается,
так-как событие Worksheet_Change вызывается только после ввода всей информации в ячейку,
то есть после нажатия клавиши ENTER

[DMITRIY_78]

Elixi, в том то и вопрос что у меня ни как не обрабатывается

[Aleksandr H.]

введите в ячейку текст, нажмите Ентер и пусть тогда отформатируется внешний вид.

или с помощью формата https://micro-solution.ru/excel/form...telefon-format

[DMITRIY_78]

Aleksandr H., спасибо!