Startpage using Excel 2000

[Rach]

I would be grateful for some advice on the following, I have an Excel 2000
spreadsheet with numerous worksheets, and it has a main page navigation
where you can click on to select the worksheet of your choice, the problem
is if you close down the spreadsheet when it is not on the navigation page,
the navigation page will not appear when you reopen the spreadsheet.



How can I setup the spreadsheet so that the navigation page always opens on
startup.



Regards,



Rach

 

[Norman Harker]

Hi Rach!

Use the following subroutine that goes into the ThisWorkbook module

Private Sub Workbook_Open()
For Each sh In ThisWorkbook.Worksheets
sh.Select
Application.Goto Reference:=sh.Range("a1"), Scroll:=True
Next sh
End Sub

This resets all sheets to A1 at top left.

 

[JulieD]

and if you want the navigation page to be the first one they see when the
workbook is opened add modify Norman's code as follows:

Private Sub Workbook_Open()
For Each sh In ThisWorkbook.Worksheets
sh.Select
Application.Goto Reference:=sh.Range("a1"), Scroll:=True
Next sh

sheets("NavigationPage").activate

End Sub

where "NavigationPage" is the name of your navigation sheet.

Cheers
JulieD

 

[Norman Harker]

Thanks Julie! Didn't take account of the requirement.

 

[JulieD]

not a problem ... late night or early morning for you?

 

[Norman Harker]

Hi Julie!

Late nighting it; just finished watching the British Grand Prix.
Playing around with a UDF.