Colocar encabezados a ListBox perzonalizado

El siguiente código muestra como colocar encabezados a un Listbox.

1. Ingresar al editor de VBA Excel.
2. Insertar un formulario e incrustar un ListBox1.
3. En el evento UserForm_Initialize() escribir el siguiente código.

Private Sub UserForm_Initialize()

Dim intfila As Integer

'Definimos el número de columnas

Me.ListBox1.ColumnCount = 7

'Definimos el ancho de cada columna

Me.ListBox1.ColumnWidths = "30;80;80;160;80;80;80"

'Limpiar el lixtbox

ListBox1.Clear

'Agregar el elemento en las respectivas columnas

ListBox1.AddItem

intfila = ListBox1.ListCount - 1

ListBox1.Column(0, intfila) = "ID"

ListBox1.Column(1, intfila) = "NOMBRE"

ListBox1.Column(2, intfila) = "FEC_NAC"

ListBox1.Column(3, intfila) = "SEXO"

ListBox1.Column(4, intfila) = "DIRECCION"

ListBox1.Column(5, intfila) = "TELEFONO"

ListBox1.Column(6, intfila) = "CORREO"

End Sub

Encabezado en listbox