Correct code ?

[wmbb]

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 ?

ActiveSheet.Columns(LR).Insert Shift:=xlToLeft

 

[dhookom]

I started with a sheet like:
[pre]
A B C D E F G
1 1 2 3 4 5 6
[/pre]
And then ran this code:

Sub InsertColumnLR()
    Dim LR As String
    LR = "C"
    ActiveSheet.Columns(LR).Insert Shift:=xlToLeft
End Sub

I ended up with:
[pre]

A B C D E F G
1 1 2 3 4 5 6
[/pre]
A column was inserted at C as expected.

Duane
Hook'D on Access
MS Access MVP

 

[zelgar]

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.

 

[combo]

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

 

[wmbb]

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.