Вствка - Гиперссылка.  
Там где ТЕКСТ пишете "Сбербанк", а внизу www.cbr.ru

Как достать параметр ф-ии ГИПЕРССЫЛКА - см. тут: http://www.planetaexcel.ru/forum.php?thread_id=18807  
 
Как создать гиперссылку через Ctrl+K - подскажет макрорекордер.  
 
=11161=

Казанский  
Я еще не научился программировать в VBA среде.  
Вопрос по вашему макросу. Не совсем понял его привязку к ячейкам.  
От куда он берет значения и гипперсылки и на каком диапазоне работает?  
 
'вытаскивает гиперссылку  
Function WWWVIEW(Rng As Range) As String  
 Application.Volatile  
 If Rng.Hyperlinks.Count > 0 Then  
   WWWVIEW = Rng.Hyperlinks(1).Address & Rng.Hyperlinks(1).SubAddress  
 Else  
   WWWVIEW = ""  
 End If  
End Function  
 
 
Function WWWVIEW2(ByVal Cell As Range) As String  
If Cell.Hyperlinks.Count = 0 Then  
If Mid$(Cell.Formula, 2, 9) = "HYPERLINK" Then  
WWWVIEW2 = Evaluate(Mid$(Cell.Formula, 12, InStr(12, Cell.Formula, ",") - 12))  
Else  
WWWVIEW2 = "В ячейке нет гиперссылки!"  
End If  
Else  
WWWVIEW2 = Cell.Hyperlinks(1).Address  
End If  
End Function