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

Print_Area is a name
Check in the Name box or in Paste Names


--
Kind regards,

Niek Otten

Microsoft MVP - Excel

"JGeniti" wrote in message
oups.com...
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

Try this

For Each RName In NewWorkBook.Names
If LCase(ThisName.Name) Like LCase("*!Print_Area") Then
'do nothing
Else
RName.Delete
End If
Next RName

--

HTH

RP
(remove nothere from the email address if mailing direct)


"JGeniti" wrote in message
oups.com...
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

Some other specials you should be aware of

*_FilterDatabase
*Print_Area
*Print_Titles
*wvu.*
*wrn.*
*!Criteria


--

HTH

RP
(remove nothere from the email address if mailing direct)


"Bob Phillips" wrote in message
...
Try this

For Each RName In NewWorkBook.Names
If LCase(ThisName.Name) Like LCase("*!Print_Area") Then
'do nothing
Else
RName.Delete
End If
Next RName

--

HTH

RP
(remove nothere from the email address if mailing direct)


"JGeniti" wrote in message
oups.com...
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

I believe that when you set the print area and/or rows or columns to appear
on each page that Excel automatically creates a name for that data.
Therefore, your code is deleting that name and Excel then doesn't know what
to print.

I guess you could either add code at the end of your routine to add the
appropriate name back.....Or you could just have your routine not delete the
appropriate name if it is a certain name "Print_Area".

Hope this gets you started in the right direction.

Thanks,
Bill Horton

"JGeniti" wrote:

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

Thanks Bob that worked great.

Bob Phillips wrote:
Some other specials you should be aware of

*_FilterDatabase
*Print_Area
*Print_Titles
*wvu.*
*wrn.*
*!Criteria


--

HTH

RP
(remove nothere from the email address if mailing direct)


"Bob Phillips" wrote in message
...
Try this

For Each RName In NewWorkBook.Names
If LCase(ThisName.Name) Like LCase("*!Print_Area") Then
'do nothing
Else
RName.Delete
End If
Next RName

--

HTH

RP
(remove nothere from the email address if mailing direct)


"JGeniti" wrote in message
oups.com...
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