Extending Selection of Column to the next Column to the Right

[Guest]

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

 

[JW]

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