filling cells with random numbers

[lezawang]

Hi
I got run time error 1004 running the code below. Tried everything but no luck. Any help would be appreciated. It is just to fill a cells with random number Thanks

Sub random1()
Dim i As Integer
Dim j As Integer
For i = 0 To 10
For j = 0 To 3
Workbooks(1).Worksheets(1).Cells(i, j).Value = WorksheetFunction.RandBetween(1, 1000)
Next j
Next i
End Sub

 

[shg]

There's no row 0 or column 0.

Sub random1()
  With Workbooks(1).Worksheets(1).Range("A1:D30")
    .Formula = "=randbetween(1, 1000)"
    .Value = .Value
  End With
End Sub

 

[lezawang]

Thank you for your reply. Can I do that without using Range? Thanks again.

 

[shg]

Pardon? Why?