Range.Column (Excel)

Retorna o número da primeira coluna na primeira área do intervalo especificado. Long somente leitura.

A coluna A retorna 1, a coluna B retorna 2 e assim por diante. Para retornar o número da última coluna no intervalo, use a expressão a seguir. myRange.Columns(myRange.Columns.Count).Column

Dim lngColumn As Long
lngColumn = ActiveCell.Column