Call in the Cavalry - 2014

@xladept: ooohhhh ... good thought.

Just out of interest, you could change the code to the following to see the sequence of numbers generated

Sub Button2_Click()
Dim dValue As Double
dValue = Rnd(Timer)
Cells(1, 1).Value = dValue
Cells(1, 2).Value = Cells(1, 2).Value + dValue
Cells(Cells(Rows.Count, 2).End(xlUp).Row + 1, 2) = dValue
End Sub

Regards, TMS