Dim cash As Variant

Redim cash ( 1 To 10)
For i = 1 To 10

cash(i) = DateSerial(2008,5,25) + i
Next i

--
__________________________________
HTH

Bob

wrote in message
...
i have a question about & operator.i was using that operator in a
vicious circle ( for x ...next x ).
but that operator not runing with my vicious..

example :
sub report()

cash1= 25/05/2008
for i = 1 to 10
'PROBLEM THIS BELOW!!!
"cash"& i = cash1 + i
next i

end sub

i want to that result
cash2 = 26/05/2008
cash3 = 27/05/2008

how can i do it?