Mensaje enviado por Administrador Guantánamo <root@gtm.jcce.org.cu>

Saludos a Ud y a los colegas de la lista.

Una posible solución sería.
    - Suponiendo que es la HOJA1, entonces...

Hoja1.Columns.ColumnWidth valor 'este método es para todas las columnas.
Hoja1.Columns(1).ColumnWidth Valor ' y Este es para la columna 1 en específico.


.PD. Debes saber cual es el texto de mayor tamaño que hay en una columna, el método prodía ser.

Dim valor(1 to NumFilas) as Long
For i= 1 to NumCol
    For j=1 to NumFilas
        AnchoTextCol=Len(Hoja1.Cells(j , i))
        If AnchoTextCol>valor(i) then
                valor(i) =AnchoTextCol ' en valor(i) tienes el valor del texto más ancho por columnas.
        End If
    Next j
Next i

Espero que resuelvas y puedas terminar pronto.......


root@gtm.jcce.org.cu
Lic. José Rosabal Pérez.

Mensaje enviado por Diego Buendía <diegobb@teleline.es>

Hola, Pablo:

    Selection.Columns.AutoFit

Diego Buendía
Barcelona, Spain
diegobb@teleline.es
http://teleline.terra.es/personal/diegobb