Dude,

You can do something like:

Sub test()
MsgBox Int((30 - 1 + 1) * Rnd + 1)
End Sub

This will generate random numbers between 1 and 30.

regards,
Robert