Как копировать URL адрес из ячейки в другую ячейку (макросом).

[AlexDoom]

Доброго времени суток!

Подскажите, как можно копировать URL адрес из ячейки одного листа в ячейку другого листа.

Данные которые находятся на первом листе поступают импортом из нета (страницы), и в некоторых ячейках естественно есть гиперссылки.

Но, сам URL адрес в ячейке (ках), скрыт за текстом, названием.

И тот макрос который я смог написать, копирует только сам текст, а не URL адрес.

Помогите разобраться с этой задачей !!!

Вот мой пробный макрос:

Sub Мой_Пробный_Макрос()

Dim s As String
Dim Ячейка As String
Ячейка = "A"

For x = 1 To 100 Step 1
i = i + 1
s = Ячейка + LTrim(Str(x))
Range(s) = ThisWorkbook.Worksheets(1).Range(s)
Next x

End Sub

[AlexDoom]

Всем большое спасибо за помощ, сам бы не справился, столько предложений и примеров, что просто глаза разбегаются.......ну да ладно!!!!

Вот пример:

Sub КОПИР_СКРЫТ_URL()
Dim s$
s$ = Cells(1, 1).Hyperlinks(1).Address
Range("B1") = s$
End Sub