Inserting columns to the left or to the right

[Bengt]

I am trying to have a macro to insert columns, and I would like to be in control of whether the new column is inserted to the left or to the right of a certain column. Consider these two small macros:

Sub InsertBeforeC()
    Columns("C:C").Select
    Selection.Insert Shift:=xlToLeft, CopyOrigin:=xlFormatFromLeftOrAbove
End Sub
Sub InsertAfterC()
    Columns("C:C").Select
    Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
End Sub

Regardless of which of these two macros I use, the new column is inserted to the left of C. I had hoped that the InsertBefore macro should insert a column to the left of C and the InsertAfter macro should insert a column to the right of C, but that doesn't happen. What do I do wrong?

Bengt

 

[Jon von der Heyden]

Hi Bengt

Maybe write your own subroutine for this, e.g:

Public Sub NewColumn(ByVal lngShift As XlDirection)
    If lngShift = xlToLeft Then
        Selection.EntireColumn.Insert
    ElseIf lngShift = xlToRight Then
        Selection.Offset(, 1).EntireColumn.Insert
    End If
End Sub

Use as follows:

Sub test()
    NewColumn xlToRight
End Sub

 

[Bengt]

Hi Bengt

Maybe write your own subroutine for this, e.g:

Public Sub NewColumn(ByVal lngShift As XlDirection)
    If lngShift = xlToLeft Then
        Selection.EntireColumn.Insert
    ElseIf lngShift = xlToRight Then
        Selection.Offset(, 1).EntireColumn.Insert
    End If
End Sub

Use as follows:

Sub test()
    NewColumn xlToRight
End Sub

Thanks for your help Jon, I'll try it out. Still, my original question remains: Why have something called "xlToRight" or "xlToLeft" if columns aren't inserted to the right or to the left respectively, but only to the left?

Bengt