Преобразование значения ячейки в гиперссылку - VBA

Формулировка задачи:

Здравствуйте! У меня вопрос такой, на

Лист1

в столбце В50:В150 имеются данные типа $AAL120, или $AL12 в каждой ячейке только одно из подобных уникальных значений, плюс один или два пробела. Как сделать, чтобы преобразовать $AAL120 или $AL12 в гиперссылку на

Лист2

на ячейку AAL120 или на

Лист2

на ячейку AL12 соответственно? Спасибо!

Решение задачи: «Преобразование значения ячейки в гиперссылку»

textual
                            Листинг программы 
                        

                            Private Sub Test()
    Dim iCell As Range, tmp$
    For Each iCell In [B50:B150]
        tmp = Trim(iCell.Text)
        If tmp <> "" Then iCell.Hyperlinks.Add iCell, "", "Лист2!" & tmp
    Next
End Sub
                        