Returns a Range object that represents the entire column (or columns) that contains the specified range. Read-only.
Example
This example sets the value of the first cell in the column that contains the active cell. The example must be run from a worksheet.
ActiveCell.EntireColumn.Cells(1, 1).Value = 5