{quote}{login=prog}{date=21.08.2008 04:19}{thema=Присваивание гиперссылки ячейкам в VBA Excel.}{post}Помогите плз, нужно присвоить приблизительно 100 ячейкам, идущим подряд в столбце гиперссылки на другой лист в этой же книге.  
Примерно    
a1 -> list2!b2  
a2 -> list2!d2  
a3 -> list2!f2  
 
Текст в самих a1,a2,a3... берется vlookup-ом по соседней ячейки с 3-го листа и не должны меняться из-за присвоения гиперссылки.{/post}{/quote}  
Как то так примерно  
Sub HyperLinks()  
  Dim sheet As Worksheet  
  Dim cell As Range  
   
  ActiveWorkbook.Sheets.Add Before:=Worksheets(1)    
  With ActiveWorkbook  
     For Each sheet In ActiveWorkbook.Worksheets  
 
        Set cell = Worksheets(1).Cells(sheet.Index, 1)  
        .Worksheets(1).Hyperlinks.Add anchor:=cell, Address:="", _    
         SubAddress:="'" & sheet.Name & "'" & "!A1"  
        cell.Formula = sheet.Name'здесь ваш впр вписать  
     Next  
  End With  
End sub

спасибо работает, примерно так и сделал.

Я конечно дико извиняюсь, но зачем макрос?  
В ячейку A1 пишем =ГИПЕРССЫЛКА(B1)  
Копируем эту ячейку. В строке адреса ячейки (обычно слева от строки ввода формул) меняем A1 на A10000, жмем SHIFT+ENTER. Затем правый клик на выделенном диапазоне и вставляем.  
С гиперссылкой из меню "Вставка" можно проделать аналогично.  
Да и вообще, чем =ГИПЕРССЫЛКА(B1) лучше =B1 ?

Люди, помогите с гиперссылками, очень срочно надо!! Как присвоить гиперссылки ячейкам на одном листе: ячейка А1 - гиперссылка на ячейку В1, ячейка А2 - гиперссылка на ячейку В2 и так до 10000. Функция Гиперссылка не работает, создает, но не открывает. Как еще можно???

Спасибо большое, Катя! Тоже мучилась с этой проблемой - теперь заработало!