VBA Příkazy ke grafice

[majoropava]

Zdravím, v Excel verze 2007 mi nefubgují příkazy na tvorbu grafů.
Když zaznamenám makro na tvorbu grafu a znovu jej spustím - vyjakuje chybu:
Například:
Sub Makro1()
'
' Makro1 Makro
'

'
Range("A1:B5").Select
ActiveSheet.Shapes.AddChart.Select vykazuje CHYBU
ActiveChart.SetSourceData Source:=Range("List1!$A$1:$B$5")
ActiveChart.ChartType = xlBarClustered
End Sub

Díky za odpověď.
Zeman

[Reklama]

[cmuch]

Zdravím,
mě to tedy vyhazuje tady ActiveChart.SetSourceData Source:=Range("List1!$A$1:$B$5"),
když se nahradí Source tímto Sheets("List1").Range("$A$1:$B$5") tak to valí.

[Azuzula]

Mě to pro změnu funguje bez chyby