PC-HELP.CZ

Zdraví a nevím co s tím, ve VBA vytvořen záznam makra:
Sub Makro1()
'
' Makro1 Makro
Range("A1:B5").Select
ActiveSheet.Shapes.AddChart.Select
ActiveChart.ChartType = xlColumnClustered
ActiveChart.SetSourceData Source:=Range("List1!$A$1:$B$5")
Range("A7").Select
End Sub
Po spuštění hlásí error 1004 a
chybu na příkazu ActiveSheet.Shapes.AddChart.Select (U aktuálního záznamu není zadaná dimenze platná).
Děkuji za odpověď.