RandBetween code in VB (Excel 2010)

[teamyoko]

I have to create a code in excel that requires the user to select a number between 1 and 100 and tell the user to guess the value of the randomly generated number and to let the user know if it is correct, too low, or too high.

The game requires a button to be created in a procedure labeled "play the high low game"

I know I need to use WorksheetFunction.RandBetween(1,100) but I don't know what else needs to be done.

Please help.

[Norie]

You don't need to use RandBetween, you can use VBA's Rnd.

randno = Int(Rnd()*100) + 1

[abousetta]

This should do the trick:

Sub test()
  Dim Response%, Ans%
    On Error Resume Next
    Ans = Application.RandBetween(1, 100)
TryAgain:
    Response = CInt(InputBox("Pick a number between 1 and 100"))
    If Response > 0 Or Response < 100 Then
        If Ans = Response Then
            MsgBox "Correct Answer", vbExclamation
            Ans = 0
        ElseIf Ans < Response Then
            If MsgBox("Try a lower number", vbExclamation + vbOKCancel) = vbOK Then GoTo TryAgain
        ElseIf Ans > Response Then
            If MsgBox("Try a higher number", vbExclamation + vbOKCancel) = vbOK Then GoTo TryAgain
        End If
    End If
End Sub

You can extend this to using a userform instead of an input box, etc.

abousetta