Thanks for your time KL, I knew it would be simple. Much appreciated.

Paul


"KL" wrote in message ...
Also if you need to precede your Rnd() function with the Randomize
statement:

Private Sub CommandButton1_Click()
Dim R As Integer: R = ActiveCell.Row
Randomize ' Initialize random-number generator.
'first ticket numbered 10000, dont panic
X = Int(Rnd() * 30000) + 10000
TextBox1.Value = X
R = 20
TextBox2.Value = Sheets("Sheet1").Cells(1, R)
End Sub

Regards,
KL