VBA - Convertir enlaces absolutos en enlaces relativos

Función que convierte todos los enlaces absolutos de un archivo a enlaces relativos. (Sólo usar cuando el archivo sólo contenga enlaces a él mismo) Así podemos modificar el nombre y la ubicación del archivo sin que fallen los hipervínculos.

'Convierte en relativos todos los enlaces de un Libro eliminando las referencias externas a otros archivos.
Sub FixHyperlinks()
   Dim hyp As Hyperlink
   Dim sh As Worksheet
   
   For Each sh In ThisWorkbook.Worksheets
      For Each hyp In sh.Hyperlinks
         hyp.Address = ""
      Next hyp
   Next sh
   
   MsgBox ("Los hipervínculos se actualizaron corréctamente")
   
End Sub