Random Number Excel

Generate random number greater than (some limit say more than 9999) using the code below:

Sub random1()
Dim i
For i = 1 To 100
While (Sheet1.Range("A" & i).Value <= 9999)
Sheet1.Range("A" & i).Value = Rnd() * 100000
Wend
Next i
End Sub