Neal,
Named ranges can be available to the entire workbook or they can be
worksheet specific.

If the name is at the workbook level:
Sub Shift1()
ActiveCell.Value = Range("rngShift1").Value
End Sub

If it is worksheet specific, this is prefered:
Sub Shift1()
ActiveCell.Value = Worksheets("Sheet 1").Range("rngShift1").Value
End Sub

Dale Preuss

"Neal" wrote:

Hi


I have a dynamic named range "Shift1". I would appreciate some code that I
can assign to a button that will copy the contents of the named range to the
active cell position.

TIA