I believe this routine would swap Columns 1 & 3 (or A & C)

SwapColumns 1, 3

Sub SwapColumns(c1, c2)
Columns(c1).Copy
Columns(c2).Insert
Columns(c2 + 1).Cut
Columns(c1).Select
ActiveSheet.Paste
Columns(c2 + 1).Delete
End Sub

HTH
Dana DeLouis


"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.