Command Button to Choose Random Number from LIST NOT RANGE

It doesn't look like it will do odd or even, but:
https://www.techonthenet.com/excel/formulas/rnd.php

Int ((9 - 1 + 1) * Rnd + 1)

Result: random number between 1 and 9

Hi Ghostrider55,

Try these macros:

Option Explicit
Sub Even()

    Dim blnIsNumberEven As Boolean
    Dim lngMyNumber As Long
    
    Application.ScreenUpdating = False
    
    blnIsNumberEven = False
    Do Until blnIsNumberEven = True
        lngMyNumber = Evaluate("RANDBETWEEN(1,9)")
        If lngMyNumber Mod 2 <> 1 Then 'http://www.vbaexpress.com/forum/showthread.php?17837-Solved-if-odd-even-numbers
            blnIsNumberEven = True
        End If
    Loop
    
    Range("BH3").Value = lngMyNumber
    
    Application.ScreenUpdating = True

End Sub
Sub Odd()

    Dim blnIsNumberEven As Boolean
    Dim lngMyNumber As Long
    
    Application.ScreenUpdating = False
    
    blnIsNumberEven = True
    Do Until blnIsNumberEven = False
        lngMyNumber = Evaluate("RANDBETWEEN(1,9)")
        If lngMyNumber Mod 2 = 1 Then 'http://www.vbaexpress.com/forum/showthread.php?17837-Solved-if-odd-even-numbers
            blnIsNumberEven = False
        End If
    Loop
    
    Range("BH3").Value = lngMyNumber
    
    Application.ScreenUpdating = True

End Sub

Please wrap any code you post in the applicable tags i.e. [CODE] your code here [/CODE] as I have done. Thanks.

Regards,

Robert

Hey GR55,

How about using an IsOdd or IsEven function in your quest. Something like:

Private Sub CommandButton1_Click()
DoOver:
    Range("BH3") = WorksheetFunction.RandBetween(1, 9)
    If WorksheetFunction.IsOdd(Cells(3, "BH")) Then GoTo Good
    GoTo DoOver
Good:
End Sub