Thread: Macro Help
View Single Post
  #2   Report Post  
Posted to microsoft.public.excel.programming
[email protected] kemal@intelinfo.zzn.com is offline
external usenet poster
 
Posts: 27
Default Macro Help

Do you mean something like below ?

Private Sub Worksheet_Activate()
Dim i As Double
For i = 1 To 10 ' from B1 to B10
Me.Range("a1").FormulaR1C1 = "=rand()"
Me.Range("b" & i) = Me.Range("a1").Value
Next i
End Sub