I have routine that makes a copy of a workbook to save as a snapshot
that has all of the code and range names removed. I couldn't figure out
why my print area was screwed up on my snapshots and then I used the
debug.print to figure out exactly what was causing my print area to be
erased.

here is the code that does it

For Each RName In NewWorkBook.Names
RName.Delete
Next RName

Does anyone have any idea why deleting all of the range names from the
workbook would do this. None of the sheets in my workbook utilize a
named range for it's print area.

Any help would be appreciated.
Thanks
James