Trying to use the following to simply copy the active cell contents to the
next column over and for the next 20 rows. Getting late. Why is this
ignoring the column Offset?
Thanks.


Sub Macro2()
'
' Macro2 Macro
' Macro recorded 3/6/2005 by Michael
'
' Keyboard Shortcut: Ctrl+z
ActiveCell.Copy
Dim MyArray(1 To 20) As Variant
For i = 1 To 20
X = MyArray(i)
ActiveCell.Offset(1, X).Select
ActiveSheet.Paste
Next i
End Sub

--
WWW