Formatear un Listbox automáticamente

Hola:

Os adjunto procedimiento para formatear un listbox de forma autómatica:

Supuesto de partida: Lista en A1 de Hoja1

Se toman de la fila 1:

.Fuente: Nombre, Tamaño, Negrita, Itálica

.Columnas: Numero, ancho

.Ancho lista: Sumatorio ancho columnas

Private Sub DimensionarListbox()


'Rango inicio cabecera lista

Sheets("Hoja1").Select: Range("A1").Select


'Fuente y tamaño

ListBox1.Font = ActiveCell.Font.Name

ListBox1.Font.Size = ActiveCell.Font.Size

ListBox1.Font.Bold = ActiveCell.Font.Bold

ListBox1.Font.Italic = ActiveCell.Font.Italic


'Dimensionamos el listbox

ListBox1.ColumnWidths = ""

Do Until ActiveCell = ""

   ListBox1.ColumnCount = ActiveCell.Column

   ListBox1.ColumnWidths = ListBox1.ColumnWidths & ";" & (6 * Columns(ActiveCell.Column).ColumnWidth) + 4

   TotalWidth = TotalWidth + 6 * (Columns(ActiveCell.Column).ColumnWidth + 1)

   ListBox1.Width = TotalWidth

   ActiveCell.Offset(0, 1).Select

Loop


'Corregimos ancho columna

DoEvents

ListBox1.ColumnWidths = Mid(ListBox1.ColumnWidths, 2)


End Sub



[/CODE]

Saludos