Opening on a specified sheet

M

Mike

I have 20 sheets in an excel document. Is there any way
to have the document always open on a specified sheet.
Thanks.
 
N

Norman Harker

Hi Mike!

Here's a routine that I use:

Private Sub Workbook_Open()
Application.ScreenUpdating = False
Dim n As Integer
For n = 1 To Worksheets.Count
Worksheets(n).Select
Application.Goto Reference:=Range("a1"), Scroll:=True
Next n
Application.Goto Reference:="StartPoint", Scroll:=True
Application.ScreenUpdating = True
End Sub


It does more than you ask but it sets up the workbook.
I have a cell named StartPoint that will be the top left cell when the
workbook is opened.

--
Regards
Norman Harker MVP (Excel)
Sydney, Australia
[email protected]
Excel and Word Function Lists (Classifications, Syntax and Arguments)
available free to good homes.
 
M

Mike Ferris

Norman, I appreciate the help, but this is way above my
head. I do not even know where to put that code at.
Thanks for your help though.

Mike Ferris
 
N

Norman Harker

Hi Mike!

Print out these instructions (just to make it easier).

Select the subroutine that I posted
With the workbook open
Right click on the sheet tab > View Code
Select and expand the workbook in the top left window (the project
Explorer
Double click on This Workbook
Point and click in the large window on the right
Right Click > Paste
File > Save
Exit the Visual Basic screen by clicking the X button
Select the cell on the sheet which you want top left
Click on the name box to the left of the Formula bar
Type StartPoint
Press Enter
Select another cell on another sheet
File > Save
File > Close

Now re-open the file and (hopefully) you will start the New Year with
a working subroutine that does what you want.

Happy New Year

--
Regards
Norman Harker MVP (Excel)
Sydney, Australia
[email protected]
Excel and Word Function Lists (Classifications, Syntax and Arguments)
available free to good homes.
 
Top