спс
нашел

Sub ЗаменаГиперссылокСформуламиНаОбычныеВВыделенномДиапазоне()
   Dim cell As Range: Application.ScreenUpdating = False
   For Each cell In Selection ' перебираем все выделенные ячейки
       addr$ = FormulaHyperlink(cell) ' берем ссылку из формулы
       If Len(addr$) Then ' если ссылка есть, то
           cell.Value = cell.Value ' заменяем формулу значением
           cell.Hyperlinks.Add cell, addr$ ' заново прописываем гиперссылку
       End If
   Next cell
End Sub

Function FormulaHyperlink(ByRef cell As Range) As String
   If cell.HasFormula And (cell.Hyperlinks.Count = 0) Then
       If cell.Formula Like "=HYPERLINK*" Then
           FormulaHyperlink = Evaluate(Mid$(Split(cell.Formula, ",")(0), 12))
       End If
   End If
End Function

сорян