View Single Post
 
Old 04-10-2013, 11:56 AM
Sajj Sajj is offline Windows 8 Office 2007
Novice
 
Join Date: Apr 2013
Posts: 3
Sajj is on a distinguished road
Default

got it

Sub randoms()

Dim randoms As Range
Range("a1:f20").Select
For Each randoms In Selection
object.Value = Rnd()
Next

End Sub
Reply With Quote