Se duplican encabezados en listView

[Benito Bartolomé]

Buenos días a todos;

Hoy traigo una consulta que no sé si ha vosotros os ha ocurrido y que no logro saber el porque.

Tengo un formulario que contiene un listView y también tiene unos textBox y un botón que al pulsarlo me filtra los datos según el criterio de los valores de dichos textBox.

Lo que no acabo de entender es lo siguiente, si le doy al filtro la primera vez se ejecuta todo correctamente pero en cambio si no cierro el formulario e intento hacer otro filtro lo 

hace bien pero me repite los encabezados a la derecha.

A alguno se le ocurre algo de porque sucede esto.

Adjunto enlace de un video y también macro:

ListView

Saludos y buen día para todos

MListView.zip

[Antoni]

Sub cValListView(): On Error Resume Next
Dim Rango As Range, Celda As Range
Dim Item As ListItem
Dim Filas As Long, Columnas As Long
Dim i As Long, j As Long

ListView1.ListItems.clear
ListView1.ColumnHeaders.clear '<----------------------------

'.....
'.....
'.....
End Sub

 

[Benito Bartolomé]

Correcto maestro, era eso lo que faltaba. 

Me dio ayer la tarde.

Bo día inda que mollado??