Random number generator

[bat18]

Hi

Im looking for simple bit of VBA that if I click will create a random number between 1 and 100.

Any help would be appreciated.

Cheers

 

[VoG]

Why not a formula

=RANDBETWEEN(1,100)

 

[Special-K99]

Maybe

Sub k1()
Range("A1").Value = Int(Rnd() * 100) + 1
End Sub

 

[bat18]

I want a button that you click to generate the number?

Can you do that without a macro?

 

[bat18]

Macro works perfectly but it doesn't have any decimal places?

Need lots of decimal places on it.

Cheers

 

[VoG]

Try

Sub rdm()
Range("A1").Value = Rnd() * 100 + 1
End Sub