possible to copy cell with cell range name to worksheet??

Hi all, not sure if this is possible, i have been searching for info but have come up empty handed! i have have one worksheet with cells and named ranges. i have successfully entered the code to select the range and copy it to another worksheet. IE:

Sheets("Sheet2").Range("copyrng").copy
Sheets("Sheet1").Activate
Sheets("Sheet1").Range("A65535").End(xlUp).Select
Selection.PasteSpecial xlPasteAll

However...in the range, copyrng, that I am copying, there are cells with named ranges. the cells copy but the named ranges do not! I need those named ranges to copy to the new worksheet! Not sure if this is even possible but any help is appreciated.
Thanks

Public Function copy_named_range(copy_range As Range, dest_range As Range)
Dim ws_copy, ws_dest, wb_copy, wb_dest, nm, offset_row, offset_col
Set ws_copy = copy_range.Parent
Set ws_dest = dest_range.Parent
Set wb_copy = ws_copy.Parent
Set wb_dest = ws_dest.Parent
offset_row = dest_range.Cells(1).Row - copy_range.Cells(1).Row
offset_col = dest_range.Cells(1).Column - copy_range.Cells(1).Column
copy_range.Copy dest_range
For Each nm In wb_copy.Names
    If Not Intersect(nm.RefersToRange, copy_range) Is Nothing Then
        wb_dest.Names.Add Name:=nm.Name, RefersTo:=ws_dest.Range(nm.RefersToRange.Offset( _
            offset_row, offset_col).Address)
    End If
Next
End Function

Use like:

sub macro_1()
copy_named_range Sheet1.Range("A1:A10"), Sheet2.Range("C1:C10")
end sub

phew!! thank you!!! that was way over my head but a great learning experience.