Mike, this is straight from the macro recorder:
Sub Macro1()
'
' Macro1 Macro
' Macro recorded 2/13/2007 by cchickering
'

'
Columns("C:C").Select
Selection.Cut
Columns("A:A").Select
Selection.Insert Shift:=xlToRight
End Sub

And this is the same code cleaned up:
Sub Macro1()
Columns("C:C").Cut
Columns("A:A").Insert Shift:=xlToRight
End Sub
--
Charles Chickering

"A good example is twice the value of good advice."


"Mike" wrote:

I want to move colC to ColA. I also want colA to not be destroyed. This is
what I'm doing so far. Thanks in advance.


Set objRange = objWorksheet.Range("C1").EntireColumn
objRange.Copy

Set objWorksheet = objWorkbook.Worksheets(1)
objWorksheet.Activate

Set objRange = objWorksheet.Range("A1")
objWorksheet.Paste (objRange)