prova con questo codice
Codice:
Sub rimuovi_hyperlink()
Range(Range("A1"), ActiveCell.SpecialCells(xlLastCell)).Select
Selection.Hyperlinks.Delete
[A1].Select
End Sub
si calcola da solo l'area in cui ci sono delle celle non vuote e rimuove il collegamento.
la puoi associare ad un tasto oppure ad una combinazione di tasti