Sub loop_Links()

Const serverold As String = "http://www.technologytrish.co.uk"
Const servernew As String = "http://www.whatever.com"
Dim lnk As Hyperlink
Dim L As Long
For L = 1 To ActiveWorkbook.Sheets.Count
For Each lnk In Sheets(L).Hyperlinks
    If lnk.Address = serverold Or lnk.Address = serverold & "/" Then
    Debug.Print lnk.Address & " " & lnk.Range
    lnk.Address = Replace(lnk.Address, serverold, servernew)
    If LCase(Left(lnk.Range, 4)) = "http" Then
    lnk.Range = Replace(lnk.Range, serverold, servernew)
    Else
    lnk.Range = Replace(lnk.Range, Mid(serverold, 8), Mid(servernew, 8))
    End If
    End If
Next lnk
Next L
End Sub