How to adjust an excel fileld when exporting data

[camilo]

Hi, I´m using a macro to export data to excel but the headers wont fit on the excel field ¿is there any way to adjust the excel field in the macro (high)?

This is the Macro:

Sub Export6

set ZonaListbox = ActiveDocument.GetSheetObject("LB08")

    Zona=ZonaListbox.GetPossibleValues

for zonacounter = lbound(Zona) to ubound(Zona) 

ActiveDocument.Fields("Zona_Nueva").Select Zona(Zonacounter)

file="C:\Users\"&"ACU - Zona - " & Zona(Zonacounter) & ".xls"

set Chart2Export = ActiveDocument.GetSheetObject("CH25")

Chart2Export.ExportBiff file

Next

ActiveDocument.ClearAll false

MsgBox "Exports Done!"

End Sub

Thanks,

Camilo