Hi Matthew,

Columns("A:A").Cut
Columns("C:C").Insert Shift:=xlToRight
Columns("C:C").Cut
Columns("A:A").Insert Shift:=xlToRight

--

HTH

Bob Phillips
... looking out across Poole Harbour to the Purbecks
(remove nothere from the email address if mailing direct)

"Matthew" wrote in message
...
Is there a way to programatically move the contents of an
entire column to another? (i.e. switch the contents of
column A with the contents of column C). Any help is
greatly appreciated as always. Thankyou.

Matthew.