Sub HIPERLINK() Dim C As Range For Each C In Selection If Not IsEmpty(C) Then C.Hyperlinks.Delete ActiveSheet.Hyperlinks.Add Anchor:=C, Address:=C.Value, TextToDisplay:=C.Value End If Next C End Sub