passing ranges in the Sub to be used in ActiveChart.SeriesCollection(....).Values

Good morning,

I ran into this problem and while having spent numerous hours have not been able to resolve it. I need to plot quite a few of charts in one of my projects. I am trying to design the process as several Subs some of which would collect the data from the experimental files and organize them the way I need, others will use defined by me Ranges to plot the charts. I am trying to use the appropriate Ranges as parameters in the Sub(Range1, Range2 etc.)

In the following I declare arrays, which contain strings X1bg(I) and Y1bg(I) as the first cell of the range, e.g. H23 and the X1end(I) and Y1end(I) as the last cells of the range, H5272. (Both H23 and H5272 are obtained as a results of calculations.) All the numbers - 23, 5272 - and further in the text are arbitrary in this description.

Please Login or Register  to view this content.

……………………………………………………

Once this is done, I define the Ranges by composing a string X1Rng(I) and Y1Rng(I)

Please Login or Register  to view this content.

After that I do this:

Please Login or Register  to view this content.

where the Sub is:

Please Login or Register  to view this content.

When I use Macro Recorder, it records:

Please Login or Register  to view this content.

In place of

Please Login or Register  to view this content.

and similar declarations in each line (as mentioned, numbers are arbitrary) I need to have respectively:

Please Login or Register  to view this content.

which correspond to:

Please Login or Register  to view this content.

.

Is it possible? How do I do that?

Thank you,