--- Revision 323664646231
+++ Revision 336637613362
@@ -2,6 +2,9 @@
 	selection = ThisComponent.CurrentSelection
 	Select Case (selection.ImplementationName)
 		Case "ScCellObj"
+			If (selection.String = "") Then
+				Exit Sub
+			End If
 			ReplaceHyperlink(selection)
 		Case "ScCellRangeObj"
 			RangeReplaceHyperlink(selection.RangeAddress)