Sub foo()
Range(Selection, Selection.Offset(0, 1)).EntireColumn.Select
End Sub

SkyEyes wrote:
I am utilizing a find scenario where I locate data in a cell and then select
the column
Selection.EntireColumn.Select

From here I need to extend my selection to include the column to the right.
Can someone assist with this code? Thanks