Excel VBA Макросы: Преобразование диапазона ячеек в гиперссылки.

[Dmitry]

Нужен макрос, преобразующий выделенные ячейки в гиперссылки вида: tel:номер телефона.
Пустые ячейки макрос должен пропускать.

Для одной ячейки (D3) макрос  выглядит так:

Макрос

Sub ГиперТел()
Range("D3").Select
ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:= _
"tel:%208%20(111)%20111%201111", TextToDisplay:="8 (111) 111 1111"
End Sub

[свернуть]

Как это сделать для выделенного диапазона ячеек? Чтобы брался текст из ячейки, впереди прибавлялся "tel:" (без кавычек) и текст в ячейке становился гиперссылкой на этот адрес.

[Администратор]

Макрос

Sub ГиперТел()

    Dim яч As Range


    ' Отключение монитора, чтобы ускорить макрос.
        ' Если много формул, можно ещё отключить формулы.
    Application.ScreenUpdating = False
   
    ' Создание гиперссылок.
    For Each яч In Selection.Cells
        If яч.Value <> "" Then
            ActiveSheet.Hyperlinks.Add Anchor:=яч, Address:="tel:" & яч.Value
        End If
    Next яч
   
    ' Сообщение.
    Application.ScreenUpdating = True
    MsgBox "Готово.", vbInformation
   
End Sub

[свернуть]

[Dmitry]

Большое спасибо! Отлично работает.