--- Revision 633563306532
+++ Revision 653663393632
@@ -1,14 +1,6 @@
 Sub StringShuffle()
   	ThisComponent.CurrentSelection.FormulaArray = ArrayShuffle(ThisComponent.CurrentSelection.FormulaArray)
 End Sub
-
-Function NumberRandom(ByVal min, ByVal max)
-	Dim len
-	len = max - min
-	Dim res
-	res = Int(Rnd() * len) + min
-	NumberRandom = res
-End Function
 
 Function ArrayShuffle(ByVal src())
 	Dim res
@@ -26,6 +18,14 @@
 	ArrayShuffle = res
 End Function
 
+Function NumberRandom(ByVal min, ByVal max)
+	Dim len
+	len = max - min
+	Dim res
+	res = Int(Rnd() * len) + min
+	NumberRandom = res
+End Function
+
 Function ArrayCopy(ByVal src())
 	Dim res(UBound(src))
 	For i = 0 To UBound(res)