B
Barb Reinhardt
I'm wanting to add range names from a list in a spreadsheet. I have several
questions:
I have this code so far ...
Dim lastrow
Dim rangename
Dim seriesrange
CurBook = Application.ActiveWorkbook.Name
lastrow = Worksheets("SeriesList").Cells(Rows.Count, "i").End(xlUp).Row
For i = 2 To lastrow
Workbooks(CurBook).Worksheets("SeriesList").Range("i" & i).Value =
rangename
Workbooks(CurBook).Worksheets("SeriesList").Range("h" & i).Value =
seriesrange
ActiveWorkbook.Names.Add Name:=rangename, RefersToR1C1:=seriesrange
Next
End Sub
Question 1: What format should the rangename and seriesname be in the
spreadsheet. I currently have something that looks like this for the series
name
Name_ChartLabel (but it's calculated from other fields)
SeriesRange is listed in the workbook as
=OFFSET(K11,J11,0) where K11 is a label, J11 is the offset in rows.
What do I need to change so that this will work properly?
Thanks in advance,
Barb Reinhardt
questions:
I have this code so far ...
Dim lastrow
Dim rangename
Dim seriesrange
CurBook = Application.ActiveWorkbook.Name
lastrow = Worksheets("SeriesList").Cells(Rows.Count, "i").End(xlUp).Row
For i = 2 To lastrow
Workbooks(CurBook).Worksheets("SeriesList").Range("i" & i).Value =
rangename
Workbooks(CurBook).Worksheets("SeriesList").Range("h" & i).Value =
seriesrange
ActiveWorkbook.Names.Add Name:=rangename, RefersToR1C1:=seriesrange
Next
End Sub
Question 1: What format should the rangename and seriesname be in the
spreadsheet. I currently have something that looks like this for the series
name
Name_ChartLabel (but it's calculated from other fields)
SeriesRange is listed in the workbook as
=OFFSET(K11,J11,0) where K11 is a label, J11 is the offset in rows.
What do I need to change so that this will work properly?
Thanks in advance,
Barb Reinhardt