More efficient code

[Guest]

I need to move column E over to column A (column A is empty). Is there a
more efficient way (ideally using 1 line of code) to write the code for this
operation other than:

ActiveSheet.Columns("E:E").Cut
ActiveSheet.Range("A1").Select
ActiveSheet.Paste

Thanks in advance for any help.
Bob

 

[Incidental]

HI

You could try something like this

ActiveSheet.[E:E].Cut Destination:=[A:A]

hope it helps

S

 

[Bob Phillips]

activesheet.columns("C:C").cut activesheet.range("A1")

--
HTH

Bob

(there's no email, no snail mail, but somewhere should be gmail in my addy)

 

[Guest]

"S" and Bob,
Thanks for your help. As always, I greatly appreciate it.
Bob