To prevent repetitive sequences, use the Randomize statement to initialize the random number generator with a seed value based on the system clock.
Sub intDemo() Dim val1 Randomize val1 = Int(100 * Rnd + 1) End Sub