VBA. Полезные макросы. Преобразовать текстовый url в кликабельную гиперссылку

У вас в книге Excel есть столбец, в котором находится множество некликабельных url-адресов. Вы хотите сделать так, чтобы все url стали кликабельными гиперссылками. Для этого напишем следующий макрос.

Sub text2hl()
    
    ' активируем лист, на котором находятся ссылки
    Sheets("44_Data").Activate
    
    ' цикл по столбцу "url" таблицы "_44_Data"
    For Each Item In Range("_44_Data[url]")
        If Item.Value <> "" Then
            ' создаем кликабельную ссылку
            ActiveSheet.Hyperlinks.Add Item, Item.Value
        End If
    Next Item
End Sub