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