Sub Find_n_PastLink()

    Dim rangContent As Range, rangPrice As Range, oWbk As Excel.Workbook, cell As Range, RecRow

    Set PriceSheet = ActiveSheet
    Set ContentSheet = oWbk.Worksheets.Item("Содержание") ' На самом деле лист по-другому называется, тут для наглядности поставил
    Set rangContent = ContentSheet.Range([A2], Range("A" & Rows.Count).End(xlUp))    
    Set rangPrice = PriceSheet.Range([C11], Range("C" & Rows.Count).End(xlUp))

    For CRow = 1 To 360 ' нужно пройтись циклом до конца столбца, не знаю как это сделать, поэтому поставил цифру побольше
       RecRow = rangContent.Cells(A, CRow)
       For PRow = 1 To 17000
          If rangContent.Cells(A, CRow).Text Like rangPrice.Cells(C, PRow).Text

          rangContent.Cells(A, CRow).Formula = _
           "=HYPERLINK(""[price 1.1.xls]""&ADDRESS(rangPrice.Cells(C, PRow)), rangPrice.Cells(C, PRow))"

          End If

       Next PRow
   Next CRow

End Sub