Correct code ? Correct code ? wmbb (TechnicalUser) (OP) 2 Jun 16 06:47 I want to insert a column at the right of the column with variable LR but the code below inserts a column to the left of LR...? Why doesn't this code work like I thought ? CODEActiveSheet.Columns(LR).Insert Shift:=xlToLeft RE: Correct code ? dhookom (Programmer) 2 Jun 16 11:25 I started with a sheet like: A B C D E F G 1 1 2 3 4 5 6 And then ran this code: CODE --> vbaSub InsertColumnLR() Dim LR As String LR = "C" ActiveSheet.Columns(LR).Insert Shift:=xlToLeft End Sub I ended up with: A B C D E F G 1 1 2 3 4 5 6 A column was inserted at C as expected. Duane Hook'D on Access MS Access MVP RE: Correct code ? zelgar (TechnicalUser) 2 Jun 16 12:57 It looks like Shift:=xlToLeft and Shift:=xlToRight doesn't make a difference to the code. If LR is a number, just modify your code to ActiveSheet.Columns(LR+1).Insert if LR is a string it gets a lot more complicated. RE: Correct code ? combo (TechnicalUser) 2 Jun 16 13:05 The 'Insert' parameter applies to inserting range, existing cells can be shifted down or right, but always the insertion line will be on the top or left of reference range. 'Shift' can take one of XlInsertShiftDirection enum values: xlShiftToRight or xlShiftDown, there is no xlToLeft. Apply Insert to next column instead (LR+1 if LR is the column's number). combo RE: Correct code ? wmbb (TechnicalUser) (OP) 4 Jun 16 08:53 I solved the problem using the LR+1 option but I was wondering why the xlToLeft didn't work while xlToRight did work. Thanks for this info.