VBA Help: To store results in Array.. Myarray1,myarray2,myarray3 etc...

[vidyuthrajesh]

Given an example below.. would need to store results in a "array" .. Line 4 says "type mismatch"

Sub arraytest()
Dim myarray 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

Thanks.

[tom1977]

try this way

Sub arraytest()
Dim i As Long
Dim myarray As Variant

ReDim myarray(1 To 10)
For i = 1 To 10
myarray(i) = i
Next
For i = 1 To 10
Range("B" & i).Value = myarray(i)
Next
End Sub

or without second loop

Sub arraytest()
Dim i As Long
Dim myarray As Variant

ReDim myarray(1 To 10)
For i = 1 To 10
myarray(i) = i
Next
Range("B1").Resize(10).Value = Application.Transpose(myarray)
End Sub

[Kelshaer]

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