Thanks P45

I actually got it going like this

[VBA]ElseIf optionbutton2.value = True And optionbutton3.value = True And optionbutton4.value = True And Optionbutton5.value = True And optionbutton6.value = True Then

lRw = WorksheetFunction.Max([d20].End(xlDown).Row, [e20:h20].End(xlDown).Row)
Set dRng = Union(Range("d20", "d" & lRw), Range("E20:H" & lRw))
dRng.Select

ActiveSheet.Shapes.AddChart.Select
ActiveChart.ChartType = xlLine
ActiveChart.SetSourceData Source:=dRng

With Sheets("summary")
lRw = WorksheetFunction.Max(.Range("d27").End(xlDown).Row, .Range("e27:h27").End(xlDown).Row)
Set dRng = Union(.Range("d27", "d" & lRw), .Range("E27:H" & lRw))
dRng.Select

ActiveSheet.Shapes.AddChart.Select
ActiveChart.ChartType = xlLine
ActiveChart.SetSourceData Source:=dRng
End With[/VBA]

but it wont seem to take my second chart from the non active page , giving me a select method of range class failed , debugging on the 2nd dRng.select line ??