[EPMAKOB]

Мне надо было поменять ссылки в двух колонках (в 16-й и 15-й по счету, т.е. в колонке "P" и "Q")

Вот что получилось:

Sub HLinke()
For index2 = 1 To 2
For Index = 2 To 300
Cells(Index, 15 + index2).Select
If ActiveCell.Text <> "" Then
old_link = ActiveCell.Text
Selection.Hyperlinks.Delete
new_link = Replace(old_link, "notebook8", "server")
ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:= _
new_link, TextToDisplay:=new_link
End If
Next Index
Next index2
End Sub