Automatically opening excel on a particular sheet

[willhaywood]

Hi,<?xml:namespace prefix = o ns = "urn:schemas-microsoft-comfficeffice" /><o></o>
<o></o>
I am creating a document in excel 2003 that will be shared by many people. I want it to always open on the first sheet, but cannot guarantee that it will always be saved there. Is there any way to tell excel to open on a particular sheet by default?<o></o>
<o></o>
I have found some info on the workbook_open command in vb, but ma having difficulty getting it to run <?xml:namespace prefix = v ns = "urn:schemas-microsoft-com:vml" /><v:shapetype id=_x0000_t75 stroked="f" filled="f" path="m@4@5l@4@11@9@11@9@5xe" oreferrelative="t" o:spt="75" coordsize="21600,21600"><v:stroke joinstyle="miter"></v:stroke><v:formulas><v:f eqn="if lineDrawn pixelLineWidth 0"></v:f><v:f eqn="sum @0 1 0"></v:f><v:f eqn="sum 0 0 @1"></v:f><v:f eqn="prod @2 1 2"></v:f><v:f eqn="prod @3 21600 pixelWidth"></v:f><v:f eqn="prod @3 21600 pixelHeight"></v:f><v:f eqn="sum @0 0 1"></v:f><v:f eqn="prod @6 1 2"></v:f><v:f eqn="prod @7 21600 pixelWidth"></v:f><v:f eqn="sum @8 21600 0"></v:f><v:f eqn="prod @7 21600 pixelHeight"></v:f><v:f eqn="sum @10 21600 0"></v:f></v:formulas><vath o:connecttype="rect" gradientshapeok="t" o:extrusionok="f"></vath><o:lock aspectratio="t" v:ext="edit"></o:lock></v:shapetype><v:shape id=_x0000_i1025 style="WIDTH: 12pt; HEIGHT: 12pt" alt="0" type="#_x0000_t75"><v:imagedata o:href="http://www.mrexcel.com/forum/images/smilies/frown.gif" src="file:///C:\DOCUME~1\00000\LOCALS~1\Temp\msohtml1\01\clip_image001.gif"></v:imagedata></v:shape><o></o>
<o></o>
Any help would be greatly appreciated<o></o>

Will

 

[onlyadrafter]

Hello,

try

Private Sub Workbook_Open()
    Sheets("Sheet1").Select
End Sub

this needs to go into the THIS WORKBOOK code window

 

[Domski]

The Workbook_Open event would do the trick:

Private Sub Workbook_Open()
Sheets("Sheet3").Activate
End Sub

The code needs to be placed on the ThisWorbook page of the workbook's VBA project.

Dom

 

[VoG]

Right click the Excel logo just to the left of File on the menu bar, select View Code and paste in

Private Sub Workbook_Open()
Sheets("Sheet1").Select
End Sub

Change the name of the sheet to suit.

 

[willhaywood]

Thanks guys

Thats solved my problem

Will