I suggest a Command Button to reset the number. You can use something
like the following to generate the number:

Private Sub CommandButton1_Click()
Sheets("Sheet1").Range("A1") = Int(1 + 100 * Rnd())
End Sub

Hth,
Merjet