--- Revision 393236386535
+++ Revision 633563306532
@@ -1,20 +1,6 @@
 Sub StringShuffle()
   	ThisComponent.CurrentSelection.FormulaArray = ArrayShuffle(ThisComponent.CurrentSelection.FormulaArray)
 End Sub
-
-Function ArrayRange(ByVal min, ByVal max)
-	Dim len
-	len = max - min
-	Dim res(len - 1)
-	Dim n
-	n = min
-	Dim i
-	For i = 0 To UBound(res)
-		res(i) = n
-		n = n + 1
-	Next
-	ArrayRange = res
-End Function
 
 Function NumberRandom(ByVal min, ByVal max)
 	Dim len