Uses the EntireColumn property, which returns a Range object that consists of a full column:
Sub SelectColumn() ActiveCell.EntireColumn.Select End Sub