Is it possible to define an oppening page in a woorkbook?

[BLopes]

I there i have a big woorkbook and i woul like to add some kind of index in the first page so I could have a better track of my data.
Like a cover page, instead of opening in the last page when I saved the document.

Hope you guys can help me on this.

[Norman Jones]

Hi B,

As a starting point, see David McRitchies Table of Contents page at:

http://www.mvps.org/dmcritchie/excel/buildtoc.htm


---
Regards,
Norman


"BLopes" <[email protected]> wrote in
message news:[email protected]...
>
> I there i have a big woorkbook and i woul like to add some kind of index
> in the first page so I could have a better track of my data.
> Like a cover page, instead of opening in the last page when I saved the
> document.
>
> Hope you guys can help me on this.
>
>
> --
> BLopes
> ------------------------------------------------------------------------
> BLopes's Profile:
> http://www.excelforum.com/member.php...o&userid=34507
> View this thread: http://www.excelforum.com/showthread...hreadid=542733
>

[BLopes]

This is a good link to a future idea. Thank you Norman.
What i want for now is a way to always open a woorkbook in the same woorksheet.
Is this possible in a simple way?

[Norman Jones]

Hi B,

> What i want for now is a way to always open a woorkbook in the same
> woorksheet.
> Is this possible in a simple way?

Try:
'=============>>
Private Sub Workbook_Open()
Const SheetToOpen As String = "Sheet2" '<<==== CHANGE

Me.Sheets(SheetToOpen).Activate
End Sub
'<<=============

Change "Sheet2" to the name of the sheet of interest.

This is workbook event code and should be pasted into the workbook's
ThisWorkbook module *not* a standard module or a sheet module:

Right-click the Excel icon on the worksheet
(or the icon to the left of the File menu if your workbook is maximised)

Select 'View Code' from the menu and paste the code.

Alt-F11 to return to Excel.


---
Regards,
Norman

[BLopes]

I'm sorry Norman the code doesn't seem to work and I don't know anything about Visual Basic.

When I open de code in any sheet and select woorksheet it shows this:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

End Sub

Then I paste the code you gave me like this:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Private Sub Workbook_Open()
Const SheetToOpen As String = "TEST"
Me.Sheets(SheetToOpen).Activate
End Sub
End Sub

I also tested like this:

Private Sub Workbook_Open()
Const SheetToOpen As String = "TEST"
Me.Sheets(SheetToOpen).Activate
End Sub

None of these codes opened always the same woorksheet.
They always shown the active sheet when I last saved the document.
I should tell I have Office2003.

Is there any more sugestions or corrections?
Hope to hear from you guys again.
Thank you

[BLopes]

I MISPLACED THE CODE IN THE WOORKSHEET CODE AND NOT IN THE WORKBOOK CODE IN VISUAL BASIC.

You'll be hearing from me in a couple of days now with questions about the link you gave me.

THANK YOU NORMAM