Текст и гиперссылка в одной ячейке (кликабельный текст) - VB

Формулировка задачи:

Есть 3 диапазона ячеек . Во втором диапазоне содержатся адреса гиперссылок . В третьем текст . Хочу что бы в первом диапазоне был текст ,но нажимая на него происходила активация гиперссылки. В строке Perem1 = book1.ActiveSheet.Range("110+A,iLoop*(25+B)").Value выдает ошибку Run-time error 1004 Application-defined or object defined error .

Sub vopros()
  
  Dim book1 As Workbook
  Dim Perem1 As String
  Dim Perem2 As String
  Dim iLoop As Long
  
   Set book1 = Workbooks.Open("E:\Super M\Проект ставки\Поиск решения\Усов 7\Условия для андердогов\пробная.xlsm")
   book1.Worksheets("Лист1").Activate
   
   iLoop = 0
   
   Do
   
   iLoop = iLoop + 1
   
    For A = 0 To 4
       For B = 0 To 65
       
         Perem1 = book1.ActiveSheet.Range("110+A,iLoop*(25+B)").Value
         Perem2 = book1.ActiveSheet.Range("185+A,iLoop*(25+B)").Value
        
          book1.ActiveSheet.Hyperlinks.Add Anchor:=Range("34+A,iLoop*(25+B)"), Address:="Perem1", TextToDisplay:="Perem2"
       Next
    Next
   Loop Until iLoop = 4
   
End Sub

Решение задачи: «Текст и гиперссылка в одной ячейке (кликабельный текст)»

textual
                            Листинг программы 
                        
                            book1.ActiveSheet.Cells(r, c).Value