Sub copyvalue()
Dim rng as Range, i as Long, j as Long, rng as Range
Dim cell as Range, n as Long, v(1 to 5) as String
Dim s as Long
s = Applicaton.Calculation
Application.Calculation = xlManual
n = 25
set rng = Range("A1:E1")
v(1) = "AA" : v(2) = "BB" : v(3) = "CC"
v(4) = "DD" : v(5) = "EE"
for i = 1 to n
Application.Calculate
j = 0
for each cell in rng
j = j + 1
Cells(i,v(j)).Value = cell.Value
Next
Next
Application.Calculate = s
End Sub

--
Regards,
Tom Ogilvy


wrote in message
ups.com...

Thanks again tom. Works great!!! Now if you could help me one more
time. Working on the same concept except I want to calculate Rand() and
then copy and paste 5 numbers example; A1, B1, C1, D1, E1 then paste to
AA1,BB1,CC1,DD1,EE1 then repeat the same procedure 25 times. Again let
me thank you as well as others who shear their knowledge with the rest
of us