I am trying to produce a graph after selecting titles in column H.
The problem is that the titles might not be consecutive ranges and of course
will vary according to the selection. So I want to keep it fully flexible.

For instance (H1:H3 and then H6:H8).
In the code below, although Selection.Count=6, it will graph only the first
block of cells selected (i.e H1:H3).
Any help fully appreciated. Thanks


Dim GraphTitle As Range
Set GraphTitle = Selection

ActiveSheet.ChartObjects(1).Activate

ActiveChart.ChartType = xlLineMarkers
ActiveChart.SetSourceData Source:=Sheets("Data"). _
Range(GraphTitle, GraphTitle.Offset(0, 11)), PlotBy:=xlRows


--
caroline