And change as well

Activecell.offset(1+i,0).value=store(i)

else you'd be writing the same cell all the time.


-----Original Message-----
Change

For i = 3 To 0
to
For i = 3 To 0 Step -1


--
Cordially,
Chip Pearson
Microsoft MVP - Excel
Pearson Software Consulting, LLC
www.cpearson.com




"FMNT80" wrote in message
. com...
What I am trying to do is use an array to 'flip'
a sequence of numbers.

The code doesn't work :-(


Sub Panel_Flip()

Dim store(3) As Double
For i = 3 To 0
store(i)=ActiveCell.Offset(0,1+i).Value
Next

For i=0 to 3
ActiveCell.Offset(1,0).Value=store(i)
Next
End Sub


I need to know where I am going wrong...

Thanks


.