Passing variables for range series charts, what to do with post macro run; unable to

I have two headaches, 1. i have searched a large data base and found the address of the values I want to add to my chart. If my starting address is Strt1 and ends Ends1, I would like to pass these variables because unlike the code below I do not know where they might be.

Charts.Add
ActiveChart.ChartType = xlLineMarkers

For i = 1 To j
ActiveChart.SeriesCollection.NewSeries
With Worksheets(i)
ActiveChart.SeriesCollection(i).XValues = .Range(.Cells(1, 1), .Cells(20, 1)) 'Here I want to use variables to be my range,
ActiveChart.SeriesCollection(i).Values = .Range(.Cells(1, 2 ), .Cells(20, 2))
End With
Next nic
ActiveChart.Location Where:=xlLocationAsObject, Name:="Sheet1"

2. second question, I am using userform, i have set to so that I can type delete my excel while the userform is on top, but when I ran my macros and it does what its work, it does not allow me to do anything unless i close the form.
Help, I appreciate your time in advance, thanks

Osman

Are Strt1 and Ends1 strings that contain something like A1, A20

ActiveChart.SeriesCollection(i).XValues = .Range(Strt1, Ends1)


when you show the form (xl2000 or later)

Userform1.Show vbModeless

--
Regards,
Tom Ogilvy

"osman" <osman.285udm_1148219701.747@excelforum-nospam.com> wrote in message
news:osman.285udm_1148219701.747@excelforum-nospam.com...
>
> I have two headaches, 1. i have searched a large data base and found the
> address of the values I want to add to my chart. If my starting address
> is Strt1 and ends Ends1, I would like to pass these variables because
> unlike the code below I do not know where they might be.
>
> Charts.Add
> ActiveChart.ChartType = xlLineMarkers
>
> For i = 1 To j
> ActiveChart.SeriesCollection.NewSeries
> With Worksheets(i)
> ActiveChart.SeriesCollection(i).XValues = .Range(.Cells(1, 1),
> Cells(20, 1)) 'Here I want to use variables to be my range,
> ActiveChart.SeriesCollection(i).Values = .Range(.Cells(1, 2 ),
> Cells(20, 2))
> End With
> Next nic
> ActiveChart.Location Where:=xlLocationAsObject, Name:="Sheet1"
>
> 2. second question, I am using userform, i have set to so that I can
> type delete my excel while the userform is on top, but when I ran my
> macros and it does what its work, it does not allow me to do anything
> unless i close the form.
> Help, I appreciate your time in advance, thanks
>
> Osman
>
>
> --
> osman
> ------------------------------------------------------------------------
> osman's Profile:
http://www.excelforum.com/member.php...o&userid=34226
> View this thread: http://www.excelforum.com/showthread...hreadid=544064
>