Excel VisualBasic Script

Sub SelectEntireColumn()
    Selection.EntireColumn.Select
End Sub