To move the last column to first

[JOANA RINCY]

hi...

i need to move the last column in my sheet to first so that the existing first column should be move to next column and correspondingly. Then i should make it in a read only format.Kindly provide with ur solutions

 

[mgesh2002]

Sub Macro1()

'Move last column to first

Range("A1").Select

Selection.End(xlToRight).Select

ActiveSheet.Columns(ActiveCell.Column).EntireColumn.Select

Selection.Cut

Selection.End(xlToLeft).Select

Selection.Insert Shift:=xlToRight


If Not ActiveWorkbook.ReadOnly Then _

ActiveWorkbook.ChangeFileAccess Mode:=xlReadOnly


End Sub