Instructions are as follows:

- Ask the user for a positive integer (num), below 100.
- If the user enters a negative number or greater than 100, give a warning and ask to re-enter.
- Generate 20 positive random numbers between (1- num).
- Display the generated random numbers in the range (A1, A20)

Here's what I have so far

Sub RandomNumb()

Dim Low As Double

Dim High As Double

Low = 1

High = InputBox("Enter a positive integer below 100 (1-100)")

r = Int((High - Low + 1) * Rnd() + Low)

MsgBox (r)

If High > 100 Then

MsgBox ("Error")

High = InputBox("Enter a positive integer below 100 (1-100)")

r = Int((High - Low + 1) * Rnd() + Low)

MsgBox (r)

End If

If Number <= 0 Then

MsgBox ("Error")

High = InputBox("Enter a positive integer below 100 (1-100)")

r = Int((High - Low + 1) * Rnd() + Low)

MsgBox (r)

End If

End Sub

Obviously quite a few issues but not sure how to fix them. I don't know how to get it to loop the error message and re-enter box. Also not sure how to get it to display the results on my worksheet instead of a message box. As well as how to get it to perform this task exactly 20 times.

Any help is greatly appreciated!!!