Or get rid of the selects and use this which places the cell at top left corner
of window.

Private Sub Workbook_Open()
Application.Goto Reference:=Range("myrange"), Scroll:=True
End Sub

First, create the named range "myrange"

Select the cell and InsertNameDefineAdd.

Type in the name and OK.

See more in-line below.


On Fri, 25 Aug 2006 12:47:21 -0400, "Paul B"
wrote:

mayala33, you could use a macro like this,


'change to the sheet and cell you want
Sheets("Sheet2").Select
Range("G500").Select


To put in this macro, from your workbook right-click the workbook's icon and
pick View Code. This icon is to the left of the "File" menu this will open
the VBA editor

When you right-click and "View Code" this opens the Thisworkbook module, so no
need to open the Project Explorer window.


Gord Dibben MS Excel MVP

, in Project Explorer double click on thisworkbook, under your
workbook name, if you don't see it press CTRL + r to open the Project
Explorer, then, paste the code in the window that opens on the right hand
side, press Alt and Q to close this window and go back to your workbook, now
this will run every time you open the workbook. If you are using excel 2000
or newer you may have to change the macro security settings to get the macro
to run. To change the security settings go to tools, macro, security,
security level and set it to medium


And if you are new to macros you may also what to have a look here on
getting started with macros

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