Thanks for this! I managed to modify it so that it had the desired
effect. I have another similar issue...

One of the named  ranges i've generated contains a number  of cells
that have embedded shape objects in them. What I can't figure out is
how to copy the objects from this named range  into another named
range.

It works fine using Ctrl-C Ctrl-V on the keyboard, but using VBA

range("abc").value = range("xyz").value
or
range("abc").Copy Destination:=Range("xyz")

both fail to copy the objects. Amy i missing something obvious?