Mi a baj ezzel a rövid vba programmal?

A második oszlopból szeretnék egy random (1-37) sor elemét kiíratni, és ha ugyanezen sor 1. oszlopba lévő adatot adja meg a felhasználó, akkor helyes a válasz. De nem generálódik rendes a véletlen, mindig ugyan olyan sorrendben.

Private Sub CommandButton1_Click()

'1 től 37-ig random szám generálása

szam = Int(37 * Rnd) + 1

kerdes = Cells(szam, 2)

valasz = InputBox(kerdes, "Hogy mondon ezt németül?")

If valasz = Cells(szam, 1).Value Then

MsgBox ("Helyes válasz")

Else

MsgBox ("Helytelen válasz")

End If

End Sub