Private Sub CommandButton1_Click()
Range("Shift1").copy Destination:=ActiveCell
End Sub

--
Regards,
Tom Ogilvy

"Neal" wrote in message
...
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