Прочтите столбец, выберите гиперссылку, а затем вставьте имя ссылки

У меня есть столбец данных. Я хочу выбрать ячейки, содержащие гиперссылку, и распечатать только значения этих ячеек.

У меня есть следующий код для извлечения гиперссылки. Я хочу, чтобы если в ячейке A1 есть ссылка под названием «привет», она не печатает саму ссылку, а печатает «привет».

Sub ExtractHL()

Dim HL As Hyperlink

For Each HL In ActiveSheet.Hyperlinks

    HL.Range.Offset(0, 1).Value = HL.Address

Next

End Sub

Другая идея, которая у меня возникла, заключалась в том, чтобы сказать, что если ячейка в строке НЕ содержит гиперссылку, то удалить эту строку, но я не уверен, как отрицать строку «для каждого HL в листе».