Range.Width (Excel)

Retorna um valor Double que representa a largura de um intervalo em pontos. Somente leitura.

Para definir a largura, use a propriedade ColumnWidth .

Dim dblWidth As Double
dblWidth = ActiveCell.Width