Public Function getRnd(ByVal nMin As Long, ByVal nMax As Long) As Long

Randomize
getRnd = Int((nMax - nMin + 1) * Rnd + nMin)

End Function