I don't understand the question anymore
that's what happens when you click in the cell.
Why, you can't have 2 ore more hypelinks in one cell.
What do you want to accomplish
Try
Sub belle()
Dim oTextBox As TextBox
For Each oTextBox In ActiveSheet.TextBoxes
If oTextBox.Characters.Count = 0 Then oTextBox.Delete
Next oTextBox
End Sub