make a named range from cell value?

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!