Pages

Wednesday, March 21, 2012

A For-Next example

A For-Next example

 

Sub FillRange()

Dim Count As Long

For Count = 1 To 100

ActiveCell.Offset(Count - 1, 0) = Rnd

Next Count

End Sub

 

No comments:

Post a Comment