Deleting Range Names is Erasing My PrintArea
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
|