Sub prueba() columna_inicial = "W" columna_final = "Y" Columns(columna_inicial & ":" & columna_final).ColumnWidth = 14.57 End Sub