Zufallszahlen

Ich möchte eine Reihe von Zufallszahlen erzeugen. Nutze dafür zur Zeit folgenden Code:

Sub Zufall()

Dim Zufall As Integer
Dim i As Integer

For i = 1 To 8
Zufall = Int(((i * 10) * Rnd) + 1)
Worksheets("Tabelle1").Range("C" & i) = Zufall
Next i
End Sub

Funkioniert im Prinzip auch sehr gut, allerdings wird mir nach einem Neustart von Excel immer die selbe Zahlenreihe erzeugt:
8, 11, 18, 12, 16, 47, 1, 16

Weiß zufällig jemand eine Lösung, wie auch beim ersten Ausführen des Makros eine zufällige Zahlenreihe entsteht und nicht immer dieselbe?

Vielen Dank schonmal für alle Tips

Gruß

Michael