--- Revision 363935623035
+++ Revision 656331373462
@@ -11,7 +11,7 @@
 			Next
 	End Select
 End Sub
-
+2
 Sub RangeReplaceHyperlink(ByVal address)
 	sheet = ThisComponent.Sheets(address.Sheet)
 	For y = address.StartRow To address.EndRow