[VB6] range per grafici excel

[_SC_]

Ho scritto questa macro:

Sub inserisciVelocita()
'
' inserisciVelocita Macro
' Macro registrata il 23/03/2009 da ..'

'
    
    Sheets("V media").Select
    Charts.Add
    ActiveChart.ChartType = xlLineMarkers
    ActiveChart.SetSourceData Source:=Sheets("Dati").Range("B4:N11"), PlotBy:= _
        xlRows
    ActiveChart.Location Where:=xlLocationAsObject, Name:="V media"
    With ActiveChart
        .HasTitle = True
        .ChartTitle.Characters.Text = "V. media per classe"
        .Axes(xlCategory, xlPrimary).HasTitle = True
        .Axes(xlCategory, xlPrimary).AxisTitle.Characters.Text = "Orario"
        .Axes(xlValue, xlPrimary).HasTitle = True
        .Axes(xlValue, xlPrimary).AxisTitle.Characters.Text = "Velocità"
    End With
End Sub

Adesso vorrei che il range venisse preso dinamicamente dal valore contenuto in una cella (A1). Come faccio? Se sostituisco al range questo:

Range(Foglio1.Cells(1, 4), Foglio1.Cells(1 + Foglio1.Cells(1, 1).Value, 4))

non funziona..dove sbaglio?