make a named range from cell value?

[tsiguy96]

i was trying to do something like this:

Sub Button4_Click()
'
' Button4_Click Macro
'

'
    Range("A16").Select
    Selection.Copy
    Application.CutCopyMode = False
    Selection.Copy
    Range("E4:E20").Select
    Application.CutCopyMode = False
    ActiveWorkbook.Names.Add Name:="bears", RefersToR1C1:="=Sheet1!R4C5:R20C5"
    Range("A17").Select
    Selection.Copy
    Range("F4:F20").Select
    Application.CutCopyMode = False
    ActiveWorkbook.Names.Add Name:="broncos", RefersToR1C1:= _
        "=Sheet1!R4C6:R20C6"
End Sub

but instead of "bears" or "broncos" it would take the cell value from cell A16 and A17 to make those named ranges. is there a way to do that? thanks!

[Norie]

Perhaps.

Sub Button4_Click()
'
' Button4_Click Macro
'

'
ActiveWorkbook.Names.Add Name:=Range("A16").Value, RefersToR1C1:="=Sheet1!R4C5:R20C5"

ActiveWorkbook.Names.Add Name:=Range("A17").Value, RefersToR1C1:= "=Sheet1!R4C6:R20C6"
End Sub

PS Can you add code tags when posting code?

[tsiguy96]

done !!!!!

[shg]

Maybe ...

Sub Button4_Click()
    ActiveWorkbook.Names.Add Name:=Range("A16").Value, RefersTo:="=Sheet1!$E$4:$E$20"
    ActiveWorkbook.Names.Add Name:=Range("A17").Value, RefersTo:="=Sheet1!$F$4:$F$20"
End Sub