Zufallszahlen

Sub ZZahl
ZeS = 2720986
SpS = 42
ZeL = 0
For Ze = 1 To 10
Cells(Ze, SpS + 8) = Int((ZeS * Rnd) + 1)
Next Ze
End
End Sub
Es werden immer die gleichen 10 Zahlen erzeugt.
Wie geht das richtig
Gruß Aton