selection.Copy Destination:=Selection.offset(0,1)

--
Regards,
Tom Ogilvy

"David Rose" wrote in message
...
Being a newbie to VBA, I need help in programming a simple task. I want to
select a range of cells in a column, and paste them into the cells of the
adjacent column. The number of cells selected could vary from 1 to 20.

TIA
David