Sub getrng()
Range("a18:c18").Value = Range("crrr").Value 'values
Range("crrr").Copy Range("a19") 'forumlas
End Sub

--
Don Guillett
SalesAid Software

"David Jean" <David wrote in message
...
I'm trying to wean one of our employees off Lotus 123. He wants to be able
to
paste/insert a range of cells that have been previously defined/named
without
having to go and copy it first. We are using Office 2003.