Random Number Generator

[coreyover4]

I am trying to write a program where I ask the person to input the number of random numbers generated 1-100. Right now I am stuck on one point in particular. How do I write the program to only generate the number from the input box. I know it is probably something like adding value to the code but I am not quite sure.
This is what I have right now and it creates code 1-100. How would I change this to only generating the number instead of actually always creating 100 random numbers.

Public Sub Random()
    Dim X As Integer, Number As Integer
    Number = InputBox("Enter the number of random numbers to be generated between 1 and 100", "Random Numbers")
    X = 1
    While X <= 100
        Sheet1.Cells(X, 1) = Round(1 + Rnd() * 100, 0)
        X = X + 1
    Wend
End Sub

[Ali Rizwan]

Hello
Ok now use my code

Dim intPosition As Integer
Randomize
intPosition = Int((1000 - 1 + 1) * Rnd + 1)
lblP.Caption = intPosition

If you write this code in a timer control then it'll generate a random number after a given interval.
Generated numbers between 1-1000

You can also modify by changing 1000 to val(text1) ok
lblP is a label
GOODLUCK

[coreyover4]

I am trying that but its not working first of all and second of all I am supposed to use a while\wend loop to run the random numbers. I know I can't have yall do the work for me, I just need to know how to fix the code.

[coreyover4]

Also how do I right the code to average the random numbers. Is it like I know for some part its Average = Round(Sum / Number, 0), but how would I define the sum?

[coreyover4]

Ok I figured out the random number now I just have problems with the average. I have this so far...

Average = Round(Sum / Number, 0)
    Range("c1").Value = "Average="
    Range("d1").Value = Average
    For Count = 1 To Number
        If Compare(Sheet1.Cells(Count, 1), Average) = 1 Then
            Sheet1.Cells(Count, 5) = "The Value " & Count & " Above the Average"
        ElseIf Compare(Sheet1.Cells(Count, 1), Average) = 2 Then
            Sheet1.Cells(Count, 5) = "The Value " & Count & " Equals the Average"
        Else
            Sheet1.Cells(Count, 5) = "The Value " & Count & " Below the Average"
        End If

I think it's the sum part that I am having problems with. Also the count is wrong but I don't know what to put value there. I want it to be the number generated in the random number but how do I do that?

[Killer42]

You shouldn't use sum as a variable name, as Sum() is the name of a function in Excel. (I assume this is Excel - it sure loos like it.)