filling a range with randbetween(1,100) in vba

[lezawang]

Hi
How can I fill a range, lets say A1:D30 with randbetween(1,100) in VBA?
Thank you very much.

 

[mumps]

Try:

Sub test()
    Dim rng As Range
    For Each rng In Range("A1:D30")
        rng = WorksheetFunction.RandBetween(1, 100)
    Next rng
End Sub