Change the column order

**mikef0x** · 08-21-2012, 07:17 AM

I am trying to change the order of columns in a spreadsheet ,I've stumbled across a piece of code that looks like it will do what i want but i get an error (application-defined or object-defined error) everytime i run it, any help would be appreciated.


Sub Movecolumns() 
    Dim ori As Variant 
    Dim dst As Variant 
    Dim i As Integer 
    ori = Array("A", "B", "C") 
    dst = Array("C", "B", "A") 
    For i = LBound(ori) To UBound(ori) 
        Columns(ori(i)).Cut 
        Columns(dst(i)).Insert Shift:=xlToRight 
    Next 
    Range("A6").Select 
     
End Sub

**arlu1201** · 08-21-2012, 07:21 AM

On which line do you get the error?

**arlu1201** · 08-21-2012, 07:33 AM

Try this code

Sub change_cols()

With Worksheets(1)
    .Columns("A:A").Cut
    .Columns("D:D").Select
    .Paste
    .Columns("C:C").Cut
    .Columns("A:A").Select
    .Paste
    .Columns("C:C").Delete
End With
End Sub

**romperstomper** · 08-21-2012, 07:46 AM

You can't cut column B to column B.

**mikef0x** · 08-21-2012, 08:16 AM

Thanks everyone for your quick replies, yes i realise now why it errors out and how to get around it.
thanks again, its much appriciated.

mike..

**arlu1201** · 08-21-2012, 08:18 AM

If you are satisfied with the solution(s) provided, please mark your thread as Solved.

Select Thread Tools-> Mark thread as Solved. To undo, select Thread Tools-> Mark thread as Unsolved.