Hi,

I have a large ish workbook and have created an index page to aid
navigation. I have also created additional menu items for users. One
of which is a link to the Index page. On testing I opened a new
workbook and the Index link generated an error. On checking added
Windows("test.xls").Activate to my Sub, and now users can navigate back
to the Index page from inside or outside of the workbook, which I'm
happy with.

My Sub

Sub Index()

Windows("test.xls").Activate
Sheets("Index").Select

End Sub

is kept in my test.xls workbook and the menu updated when opened and
items removed when closed.


My question is can I get VBA to check the xls file name (at present
test.xls) and change the Windows("test.xls").Activate to match if file
has been renamed.

Thanks for any help




DonH

Try uisng ThisWorkbook.Activate

--
---

HTH

Bob

(change the xxxx to gmail if mailing direct)
"donh" <(E-Mail Removed)> wrote in message
news:(E-Mail Removed)...
> Hi,
>
> I have a large ish workbook and have created an index page to aid
> navigation. I have also created additional menu items for users. One
> of which is a link to the Index page. On testing I opened a new
> workbook and the Index link generated an error. On checking added
> Windows("test.xls").Activate to my Sub, and now users can navigate back
> to the Index page from inside or outside of the workbook, which I'm
> happy with.
>
> My Sub
>
> Sub Index()
>
> Windows("test.xls").Activate
> Sheets("Index").Select
>
> End Sub
>
> is kept in my test.xls workbook and the menu updated when opened and
> items removed when closed.
>
>
> My question is can I get VBA to check the xls file name (at present
> test.xls) and change the Windows("test.xls").Activate to match if file
> has been renamed.
>
> Thanks for any help
>
>
>
>
> DonH
>

Thanks Bob ,

Worked fine

DonH


Bob Phillips wrote:
> Try uisng ThisWorkbook.Activate
>
> --
> ---
>
> HTH
>
> Bob
>
> (change the xxxx to gmail if mailing direct)
> "donh" <(E-Mail Removed)> wrote in message
> news:(E-Mail Removed)...
> > Hi,
> >
> > I have a large ish workbook and have created an index page to aid
> > navigation. I have also created additional menu items for users. One
> > of which is a link to the Index page. On testing I opened a new
> > workbook and the Index link generated an error. On checking added
> > Windows("test.xls").Activate to my Sub, and now users can navigate back
> > to the Index page from inside or outside of the workbook, which I'm
> > happy with.
> >
> > My Sub
> >
> > Sub Index()
> >
> > Windows("test.xls").Activate
> > Sheets("Index").Select
> >
> > End Sub
> >
> > is kept in my test.xls workbook and the menu updated when opened and
> > items removed when closed.
> >
> >
> > My question is can I get VBA to check the xls file name (at present
> > test.xls) and change the Windows("test.xls").Activate to match if file
> > has been renamed.
> >
> > Thanks for any help
> >
> >
> >
> >
> > DonH
> >