This worked nicely for me.

Private Sub SpinButton1_Change()

SpinButton1.Max = 9000
SpinButton1.Min = 0
SpinButton1.SmallChange = 1000

rng = "A" & 1 + SpinButton1.Value & ":B" & 1000
SpinButton1.Value
Sheet1.ChartObjects(1).Select
ActiveChart.SetSourceData Source:=Sheets("Sheet3").Range(rng)
Range("A1").Select

End Sub


Your range is A1:B10000
I plotted the chart in sheet1 itself. And I used the spinbutton fro
the control toolbox menu

Manges

--
mangesh_yada
-----------------------------------------------------------------------
mangesh_yadav's Profile: http://www.excelforum.com/member.php...fo&userid=1047
View this thread: http://www.excelforum.com/showthread.php?threadid=38153