Insert Text In Row 3 of Selected Column Macro

[Buns1976]

Hello Everyone,
In my worksheet I have a macro that inserts a blank column to the right of the selected column.
I want to add some code to the macro that will select the entire column added and add the text "Shift 4" into the cell in row 3
of that newly created column. If anyone has an idea that would be great.

Thanks,
B

Option Explicit

Sub InsertColumn()

    With Selection.EntireColumn.Offset(0, 1)
        .Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromRightOrBelow
        .Offset(0, -1).Cells(6, 1).Resize(3, 1).FillRight
    End With

End Sub

 

[Osvaldo Palmeiro]

Hi. Try this code please.

Sub InsertColumnAndText()
 Columns(Selection.Column + 1).Insert
 Cells(3, Selection.Column + 1) = "Shift 4"
End Sub

 

[Buns1976]

Sub InsertColumnAndText() Columns(Selection.Column + 1).Insert Cells(3, Selection.Column + 1) = "Shift 4" End Sub

Perfect!!! Thank you!