Visual Excel y Graficos

[vecasita]

Hola a todos...

Necesito hacer varios informes en excel desde visual, lo que ya hice pero hay algunos informes que llevan graficos con los datos del informe, lo que hice copiar el codigo que resulta de grabar una macro en VBA, y me hace el grafico pero si el usuario ejecuta el informe para otro periodo da un error de

en esta linea
ActiveChart.SetSourceData Source:=Sheets("Gráfico de dist. tipo Act.").Range( _
"B11:B15,D11:D15"), PlotBy:=xlRows

el error que me da es:
Error en el Método 'Sheets' del objeto '_Global'


Alguna idea ?
me falto algo ?

el codigo completo para generar el grafico es:
Charts.Add
ActiveChart.ChartType = xl3DColumnClustered
ActiveChart.SetSourceData Source:=Sheets("Gráfico de dist. tipo Act.").Range( _
"B11:B15,D11:D15"), PlotBy:=xlRows
ActiveChart.Location Where:=xlLocationAsObject, Name:= _
"Gráfico de dist. tipo Act."


With ActiveChart

.HasTitle = True
.ChartTitle.Characters.Text = "Distribución de Patrimonios Administrados"
.Axes(xlCategory).HasTitle = False
.Axes(xlSeries).HasTitle = False
.Axes(xlValue).HasTitle = False
End With
With ActiveChart
.HasAxis(xlCategory) = False
.HasAxis(xlSeries) = False
.HasAxis(xlValue) = True
End With
ActiveChart.Axes(xlCategory).CategoryType = xlAutomatic
ActiveSheet.ChartObjects.Left = 50
ActiveSheet.ChartObjects.Top = 0