will this work for you"

Set ChrtRange = Range("B" & clTop & ":B" & clBot & "," & Xcol & clTop & ":"
& XColB & clBot)

--

Gary Keramidas
Excel 2003


"Claude Van Horn" wrote in message
...
This should be so simple!

I am building a subroutine to create a chart based on a selected group of
cells in separated columns.

If I hard-code the statement as Set ChrtRange =
Range("B5:B8,K5:K8")

I can plug ChrtRange into CH.Chart.SetSourceData Source:=ChrtRange,
PlotBy:=xlColumns
and it works great.

But I want to use variables for the "5", the "8" and the "K". It should
be a matter of building th statement up with concatination, but I have
been having a terrible time getting it to work.

I have tried to do it the "simple" way with R1C1 values, but the chart
that comes up includes the intermediate rows, like there is a ":" between
the terms instead of a ",".

Here is my best try, but I get error 424 "Object Required"

Set ChrtRange = "Range(" & Chr(34) & "B" & clTop & ":B" & clBot & "," &
Xcol & clTop & XColB & clBot & Chr(34) & ")"


where clTop = 5, clBot = 8, XCol = "K", and XColB = ":K" and I am using
Chr(34) to insert the needed open and close quotes.


I have been playing around with variations for the last hour and a half,
and pleed for help :)

Thanks !

Incidentally, Here are my declarations, and the variables are correctly
interpreted in the string, it just won't assign.
Global clTop As Integer, clBot As Integer
Global CH As ChartObject
Global ChrtRange As Range, Xcol As String
Global XColB As String


Anyone have some thoughts on this?

Van!!