VBA reeks selecteren voor grafiek

[Henk Varossieau]

Hallo,
Ik heb een Excel bestand met vele werkbladen gevuld met testresultaten.
De testresultaten bestaan uit 3 kolommen met data.
Op alle werkbladen begint de data in cel A16 met een hoofding, daaronder gevuld met de resultaten.
Om nu snel op elk blad een grafiek van de data te krijgen wil ik een stukje VBA schrijven.
Zie hieronder:

Range("A16").Select
Range(Selection, Selection.End(xlToRight)).Select
Range(Selection, Selection.End(xlDown)).Select
ActiveSheet.Shapes.AddChart.Select
ActiveChart.ChartType = xlLine
ActiveChart.SetSourceData Source:=Range("'0801-014'!$A$16:$C$33")

Maar de Range wijst telkens naar het zelfde werkblad met de naam "0801-014" en de zelfde reeks.
Echter per werkblad is de hoeveelheid data verschillend dus moet de reeks anders zijn.

Dus wil ik dat de Range automatisch wordt gekozen.
Ik dacht met deze code:

ActiveSheet.Range("a16").CurrentRegion.Select

Zo dus:
Range("A16").Select
ActiveSheet.Range("a16").CurrentRegion.Select
ActiveSheet.Shapes.AddChart.Select
ActiveChart.ChartType = xlLine
ActiveChart.SetSourceData Source:=Range ActiveSheet.Range("a16").CurrentRegion.Select

Maar dat geeft een foutmelding op de Source selectie.
Ik doe dus iets fout maar wat?
Als beginnend VBA-er is het best lastig.

Wie oh wie helpt mij?

 

[edmoor]

Als je zegt een foutmelding te krijgen is het wel zo handig deze er ook bij te vermelden.
En dit is syntactisch uiteraard niet goed:
Range ActiveSheet.Range("a16").CurrentRegion.Select

De laatst gebruikte kolom in een regel kan je ophalen met bijvoorbeeld:
Activesheet.Range("A16").CurrentRegion.Columns.Count

 

[Henk Varossieau]

Bedankt Edmoor.
Het is uiteindelijk gelukt.
Alle data wordt netjes geselecteerd en in een grafiek gezet.