VBA Copy/Paste Sheet

[stapuff]

I am trying to copy/move to end sheet1 in the same workbook and sheet1 has defined name ranges. When I copy sheet1 and move to the end then all the defined name ranges change to only reflect sheet2 so sheet1 loses the defined name ranges.

Is there a way via vba to copy a sheet, delete the named ranges, and not effect the named ranges of the sheet being copied?

Thanks,

stapuff