Un saluto a tutto il gruppo.

Ho un problema nella creazione di un file Excel da VB6

Nella procedura creo il file lo apro e lo riempio con il risultato di una query.
Fin quì tutto bene ..
Quando apro il file di Excel trovo tutte le colonne della medesima dimensione.

Vorrei che le colonne si aprissero tutte secondo il valore più grande ....

allego la routine che utilizzo

codice:
Private Sub TrattaExcel()
   On Error GoTo TrattaExcel_Error
   
   Dim oExc As Excel.Application 'Applicazione excel
   Dim oWbk As Excel.Workbook 'Cartella di Lavoro
   Dim oWsh As Excel.Worksheet 'Foglio di lavoro
   Dim oRng As Excel.Range
   Dim oRng2 As Excel.Range
   
   Set oExc = New Excel.Application

   Set oWbk = oExc.Workbooks.Open(FileName:=fs)

   Set oWsh = oWbk.ActiveSheet ' uso il foglio attivo all'inizio
   
   Set oRng = oWsh.Columns("A:Z")
   Set oRng2 = oRng.EntireColumn
     
   oRng2.AutoFit

   

TrattaExcel_Exit:
    On Error Resume Next
    
    oWbk.Save '
    oWbk.Close False
    oExc.Quit
    Set oRng2 = Nothing
    Set oRng = Nothing
    Set oWsh = Nothing
    Set oWbk = Nothing
    Set oExc = Nothing
    Exit Sub
TrattaExcel_Error:
    MsgBox "Error " & Err.Number & " (" & Err.Description & ")", vbCritical, "Form Form1::TrattaExcel"
    Resume TrattaExcel_Exit



End Sub