Generate random numbers in Excel

[Excel Fox]

Sub GenerateRandomNumbers()

    Dim lngFrom As Long, lngTo As Long
    Dim rng As Range
    
    lngFrom = InputBox("Enter from value")
    lngTo = InputBox("Enter to value. Should be greater than " & lngFrom)
    
    For Each rng In Selection 'Will error out if selection is not a range
        rng.Value = GETRANDBETWEEN(lngFrom, lngTo)
    Next rng
    
End Sub
Function GETRANDBETWEEN(lngFrom As Long, lngTo As Long)

    GETRANDBETWEEN = lngFrom + Int(Rnd() * (lngTo - lngFrom + 1))
    
End Function