VBA Shifting Columns To Left

[cgmojoco]

This snippet of a VBA routine is meant to insert a new column to the right of the selected column:

Sub NewColumn()
Dim colPAY As Integer
   colPAY = Application.Match("Payment Source", Range("1:1"), 0)
   Columns(colPAY).Insert Shift:=[B][COLOR=red]xlToLeft[/COLOR][/B]
End Sub

the xlToLeft seems to do the same thing as xlToRight.

Is there a simple way of inserting a column to the right of the selected column rather than the left other than in this case adding 1 to the colPAY integer like this?

Sub NewColumn()
Dim colPAY As Integer
   colPAY = Application.Match("Payment Source", Range("1:1"), 0) [COLOR=red][B]+ 1
[/B][/COLOR]   Columns(colPAY).Insert Shift:=[B][COLOR=#ff0000]xlToRight[/COLOR][/B]
End Sub

The reason I am looking for this solution is that I find myself having to reset the colPAY integer to the actual column if I want to refer to the exact column anywhere later in my code and still have it make sense:

 colPAY = Application.Match("Payment Source", Range("1:1"), 0)

 

[pgc01]

Hi cgmojoco

Maybe:

Columns(colPAY+1).Insert

 

[cgmojoco]

Yes, that makes more sense! ty