Vba data pro graf

[Bapek3]

Ahoj mam dotaz. Snad někdo poradí.
Potřebuji udělat makro aby mi upravolalo data pro graf.


Dělám to takto ale nějak to nefunguje.

Sub uprav_graf

Dim graf as long

Graf = range("a5").end(xlToRight).offset(0, 1).select

ActiveSheet.chartObject("Graf 1").activate
Active.Chart.ChartArea.select
Activated.Chart.SetSourceData Source:=Range("a1" & ":" & "graf")

End sub



Děkuji za rady