Option Explicit
Sub test()
Dim wsh As Worksheet, cll As Range, dc, j As Long, hp As Hyperlink
Set dc = CreateObject("Scripting.Dictionary")
     
Set wsh = Workbooks("Garazh opt").Worksheets(ActiveSheet.Name)
     
For Each hp In wsh.Hyperlinks
      If hp.Range.Count = 1 Then
          If Not dc.exists(hp.Range.Value) Then
              dc.Add hp.Range.Value, hp.Address
          End If
      End If
Next
     
Set wsh = Workbooks("Monte-Carlo.opt").Worksheets(ActiveSheet.Name)
     
Select Case wsh.Name
      Case "Автошины"
      j = 9
      Case "Автодиски"
      j = 2
End Select
For Each cll In wsh.UsedRange.Columns(j).Cells
      If dc.exists(cll.Value) Then
          cll.Hyperlinks.Add anchor:=cll, Address:=dc.Item(cll.Value)
      End If
Next cll
     
End Sub