Do you have any formulas in those cells that refer to that named range?
And you want the formulas in the receiving worksheet to use the defined name in
the new workbook, you can add:
application.displayalerts = false
'do the copy|paste
application.displayalerts = true
To avoid the prompt.
If you're working with names (and possibly external links)...
Here are some tools that'll help you:
Bill Manville's FindLink program:
http://www.oaltd.co.uk/MVP/Default.htm
And I like Jan Karel Pieterse's (with Charles Williams and Matthew Henson) Name
Manager:
You can find it at:
NameManager.Zip from
http://www.oaltd.co.uk/mvp
Karen53 wrote:
>
> Hi,
>
> When I copy the cells of these pages, I get a message that one of my named
> ranges is in the other book as well and askes me which to use. These sheets
> being copied are not involved in this named range at all. They have no
> formulas. The workbook has many named ranges but this is the only one
> popping up. This named range is only used on one worksheet, CAMMaster.
>
> Any ideas as to how I can stop this?
> --
> Thanks for your help.
> Karen53
>
> "Dave Peterson" wrote:
>
> > I'm guessing that Notespg and Firstpg and Lastpg are all codenames for sheets
> > within each of the workbooks, if that's the case, you're going to have to do
> > something else.
> >
> > You can use the codepage of the workbook with the code (without using the
> > workbook object as the qualifier). But you'll have to use another technique to
> > find the worksheet that corresponds to the codename in the other workbooks.
> >
> > In a previous thread, you saw how I looped through the sheets in the workbook
> > and compared codenames to the name I needed. There are other ways, but I find
> > this the most reliable--I don't have to worry about any security setting that
> > other users may have.
> >
> >
> >
> > Karen53 wrote:
> > >
> > > Hi,
> > >
> > > I am trying to copy everything on these three pages on to another sheet in
> > > another workbook. I'm having trouble getting this to work. Can I do it this
> > > way?
> > >
> > > ictr = 0
> > >
> > > For ictr = 1 To 3
> > > Debug.Print ictr
> > >
> > > On Error Resume Next
> > > Select Case ictr
> > > Case 1
> > > Set rngCopyFrom = wbkCopyFrom.Notespg.Cells
> > > Set rngCopyTo = wbkCopyTo.Notespg
> > > Case 2
> > > Set rngCopyFrom = wbkCopyFrom.Firstpg.Cells
> > > Set rngCopyTo = wbkCopyTo.Firstpg
> > > Case 3
> > > Set rngCopyFrom = wbkCopyFrom.Lastpg.Cells
> > > Set rngCopyTo = wbkCopyTo.Lastpg
> > > End Select
> > >
> > > On Error GoTo 0
> > > If rngCopyFrom Is Nothing Then
> > > 'do nothing
> > > Else
> > > rngCopyTo.Value = rngCopyFrom.Value
> > > End If
> > >
> > > Next
> > >
> > > --
> > > Thanks for your help.
> > > Karen53
> >
> > --
> >
> > Dave Peterson
> >
--
Dave Peterson
Similar Threads
