Hi Robert,

Try something like:

'=============
Public Sub Tester()
Dim i As Long
Dim xmean() As Variant

ReDim xmean(1 To 20)
For i = 1 To 20
xmean(i) = i * 10
Next i

For i = 1 To 20
Debug.Print xmean(i)
Next i
ReDim Preserve xmean(1 To 30)

End Sub
'<<=============


---
Regards,
Norman


wrote in message
oups.com...
Thankyou for that. So somple when you see it. Works fine. Can yo tell
me When I use redim preserve with varaible declared as Dim xmean(1 to
4) as varaint, how I structure the command. So far Ive got Redim
Preserve xmean(i) (1 to x), but I get an error. Thanks again
Regards Robert