=ГИПЕРССЫЛКА("C:\Мои документы\Нужная папка\Нужный файл.pdf")

Sub ЗаменаИспорченныхГиперссылок()
     On Error Resume Next
     Dim hl As Hyperlink, oldString As String, newString As String, sh As Worksheet
     ' часть гиперссылки, подлежащая замене
'    oldString = "C:\Documents and settings\Бухгалтер\Application data"
     oldString = "C:\Documents and Settings\Адм\Application Data\Microsoft\Excel\"
'    newString = "\\адрес_сервера"
     newString = ""
'    For Each sh In ActiveSheet 'ActiveWorkbook.Worksheets    ' перебираем все листы в активной книге
'        For Each hl In sh.Hyperlinks    ' перебираем все гиперссылки на листе
         For Each hl In ActiveSheet.Hyperlinks     ' перебираем все гиперссылки на листе
             If hl.Address Like oldString & "*" Then
                 hl.Address = Replace(hl.Address, oldString, newString)
             End If
         Next
'    Next sh
End Sub