Selection -> Range -> Chart

[ReeveCZE]

Hey guys,

since I am a real loser at using range, I gotta ask you the following.

I want to create a chart from an area of data. Please see the following code and tell me what I am doing wrong.

Many thanks!

' variables
Dim AAAA as Worksheet
Dim BBBB as Range

'requested range
[COLOR=#000000]Range("A4").Select
[/COLOR][COLOR=#000000]Range(Selection, Selection.End(xlToRight)).Select
[/COLOR][COLOR=#000000]Range(Selection, Selection.End(xlDown)).Select
[/COLOR]
Set AAAA = ActiveSheet
Set BBBB = Selection

Charts.Add
ActiveChart.ChartType = xlLine
ActiveChart.SetSourceData Source:=AAAA.BBBB, _  'my problem
[COLOR=#000000]'etc etc etc
[/COLOR]

 

[steve the fish]

This should add your chart with the selection

Sub Charts()
Dim BBBB As Range
Set BBBB = Selection
With BBBB
    ActiveSheet.Shapes.AddChart.Select
    ActiveChart.ChartType = xlLine
    ActiveChart.SetSourceData Source:=BBBB
End With
    
End Sub