![]()
Sub arraytest() Dim myarray(1 To 10) As Variant For i = 1 To 10 myarray(i) = i Next For i = 1 To 10 Range("B" & i).Value = myarray(i) Next End Sub
![]()
Sub arraytest() Dim myarray(1 To 10) As Variant For i = 1 To 10 myarray(i) = i Next For i = 1 To 10 Range("B" & i).Value = myarray(i) Next End Sub
Regards,
Khaled Elshaer
www.BIMcentre.com
Remember To Do the Following....
- Thank those who have helped you by clicking the Star below their post.
- Mark your post SOLVED if it has been answered satisfactorily:
- Select Thread Tools (on top of your 1st post)
- Select Mark this thread as Solved
There are currently 1 users browsing this thread. (0 members and 1 guests)
Bookmarks