I have a macro to add range names to a workbook and the names and ranges are
listed in a worksheet. I'm able to add the names, but the range is shown as
text. Here is what I have:

Sub PPQDefineRangeName()
'
' DefineNamefromList Macro
' Macro recorded 1/16/2006 by Barb Reinhardt
'
Dim lastrow
Dim rangename
Dim seriesrange
Dim CurBook
Dim i
Dim sht

CurBook = Application.ActiveWorkbook.Name
lastrow = Worksheets("RangeName").Cells(Rows.Count, "a").End(xlUp).Row
Debug.Print lastrow
For i = 2 To lastrow
rangename = Workbooks(CurBook).Worksheets("RangeName").Range(" a" &
i).Value
seriesrange = Workbooks(CurBook).Worksheets("RangeName").Range(" c" &
i).Value
sht = Workbooks(CurBook).Worksheets("RangeName").Range(" d" & i).Value
Debug.Print rangename; seriesrange; sht
'range name can't have a "'" or a "-" or a "%" or a " " or a "." or "("
or ")" or "+"
'Added the following
'Sheets(sht).Activate
ActiveWorkbook.Names.Add Name:=rangename, RefersToR1C1:=seriesrange
'Exit Sub
Next

End Sub

When I look at the data in the named ranges, it looks like:

="OFFSET(InterTeam-ChartLabel,4,0)"
but it should look like
=OFFSET(InterTeam-ChartLabel,4,0)

The data is displayed in the original sheet as:
OFFSET(InterTeam-ChartLabel,4,0)

How do I get the " to go away so that the ranges are useful?

Thanks in advance,
Barb Reinhardt