шаблон телефонного номера

[strannick]

Вот нашел такой код, который убирает из телефонных номеров пробелы, тире, скобки:

Option Explicit
Const CHARS_TO_REMOVE = " -()" 'символы для удаления

Function leks(ByVal s$) As String
Dim v, x
For x = 1 To Len(CHARS_TO_REMOVE)
s = Replace$(s, Mid$(CHARS_TO_REMOVE, x, 1), "")
Next
With CreateObject("vbscript.regexp")
.Global = True
.Pattern = "\+?\d{5,}" 'не менее 5 цифр подряд
Set v = .Execute(s)
End With
For Each x In v
leks = leks & "; " & x
Next
leks = Mid$(leks, 3)
End Function

Реализован как функция. Телефонные номера копируются из других мест и заносятся в столбцы О и Р не все сразу, а добавляются различными частями.
Вопроса два:
1. Как в шаблоне кода (или каким-либо другим способом) перед номером проставлять +7, чтобы Skype-овская надстройка опознавала их как свои родные и преобразовывала в Skype links?
2. И главное, очень хотелось бы, чтобы преобразование происходило по мере заполнения (вставки) телефонных номеров в указанные столбцы без дополнительных процедур.

Может как-то макросом по указанному шаблону обрабатывать эти столбцы?

[doober]

Конец года,лимит на файлы исчерпан,писать макрос и проверять неначем.
Могу только посоветовать проверять наличие +7 в начале номера,если нет,то добавлять и далее отправлять в функцию leks

[strannick]

Для того "чтобы было" так и сделал. Корявовато получилось конечно. Ну да ладно, после Нового года доработаем.