using VBA I use the following function

Public Function RandomNumber(ByVal minX As Integer, ByVal maxX As
Integer) As Integer

Randomize
RandomNumber = Int((maxX - minX) * Rnd()) + minX

End Function