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

[osman]

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

 

[Tom Ogilvy]

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