Numero de columnas en un archivo

Hola, Juan Sensei !

... propiedad para determinar el numero de columnas de un archivo ... en VBA

==> puedes 'aprovechar' la propiedad 'UsedRange' para 'determinar' la parte 'ocupada' de una hoja y ...
-o- 'obtener' la columna inicial => NO es siempre ['necesariamente'] la columna 1 ['a'] < -o- el numero total de columnas [o filas] 'usadas' ...etc...
el siguiente codigo es [solamente] un 'ejemplo'
en un modulo de codigo 'normal' ==Sub Columnas_en_uso()
Dim Col_1 As Integer, Col_1L As String, Col_Tot As Integer, Col_n As Integer, Col_nL As String
With Worksheets("Hoja1").UsedRange
Col_1 = .Columns(1).Column
Col_1L = Mid(.Address, 2, InStr(2, .Address, "$") - 2)
Col_Tot = .Columns.Count
Col_n = Col_Tot + Col_1 - 1
Col_nL = Mid(.Address, _
InStr(.Address, ":") + 2, _
InStr(InStr(.Address, ":") + 2, .Address, "$") - (InStr(.Address, ":") + 2))
MsgBox "Primer columna: " & Col_1 & vbCr & _
"Letra 1er columna: " & Col_1L & vbCr & _
"Columnas ""usadas"": " & Col_Tot & vbCr & _
"Ult. columna ""usada"": " & Col_n & vbCr & _
"Letra ult. columna ""usada"": " & Col_nL
End With
End Sub
_______
Saludos,
Héctor.
MS-MVP