Como enviar los columnsheaders a excel

[agustinbus]

ya probe de muchas formas aplicando tu codigo pero lo que me hace es mostrarme un msgbox con cada columnheader y por cada uno me abre un archivo de excel. si podrias decirme donde poner el codigo seria mejor. este es mi codigo:

Dim ret As Boolean
If MsgBox("¿Desea exportar la planilla a Excel?", vbQuestion + vbYesNo) = vbYes Then
'Le pasa el path donde está ubicado el libro, el control ListView
ret = Exportar_Excel(App.Path & "\libro1.xls", ListView1, ProgressBar1)
If ret Then
' OK
MsgBox " Datos exportados a Excel", vbInformation
End If
End If