Excel VisualBasic Script

Sub SelectColumn()
    ActiveCell.EntireColumn.Select
End Sub