non riesco a capire l'errore di questo codice, mi si blocca sulla linea evidenziata in rosso.
il suo scopo è quello di aprire un foglio excel da access, esportarvi i dati di una query a capi incrociati e di aggiornare il source del grafico sul foglio di excel. (excDoc e excApp sono già dichiarate in un altro modulo come public)
codice:
'definisco path
Modello = CurrentDb.Name
Modello = Left(Modello, Len(Modello) - Len(Dir(Modello))) & "modulistica\DEFINIZIONI.xlt"
'esporto i dati su excel
DoCmd.TransferSpreadsheet acExport, 8, "GRAFICO_3", Modello, False, ""

'apre excel
    blOpen = True
    Set excApp = GetObject(, "Excel.Application")
    If Err.Number = 429 Then
        Set excApp = CreateObject("Excel.Application")
        blOpen = False
        Err.Number = 0
    End If

'apro file excel basato sul modello
Set excDoc = excApp.Workbooks.Add(Modello)
    excApp.Visible = True
    
'ciclo i dati importati per modificare i valori del grafico
Dim zona As Range
Dim CL As Object
    Dim X, uno  As String
    excDoc.Sheets("Grafico_3").Select
    
    Set zona = excDoc.Range(Range("b2"), Range("b10")) 'range delle colonne 
    For Each CL In zona
        If Not IsEmpty(CL.Value) Then
            uno = CL.Address
        Else
            Exit For
        End If
    Next
    
    excDoc.Sheets("GRAFICO_3").Select
    excDoc.ActiveSheet.ChartObjects("Grafico 1").Activate
    excDoc.ActiveChart.SeriesCollection(1).Select
    excDoc.ActiveChart.SetSourceData Source:=Sheets("GRAFICO_3").Range("a1:" & uno), PlotBy _
        :=xlColumns
    
    excDoc.Sheets("Grafico_3").Cells.Select
    excDoc.Selection.Columns.AutoFit
    excDoc.Range("A1").Select