Sencillísimo pero muy útil, si alguna vez haz querido quitar links de una hoja sabras que es molesto quitar uno a uno. con este macro solo basta seleccionar el area con los links y ejecutar el macro para borrar los links.
Sub borrar_lincks()
'
Dim Strdir As String
Strdir = Selection.Address
Range(Strdir).Select
Selection.Hyperlinks.Delete
End Sub
