Range.Column (Excel)

Returns the number of the first column in the first area in the specified range.

Column A returns 1, column B returns 2, and so on. To return the number of the last column in the range, use the following expression. myRange.Columns(myRange.Columns.Count).Column

Dim lngColumn As Long
lngColumn = ActiveCell.Column