Setting Start Sheet in VB

[Schodoodles]

Hi,

Is there anyway to set a start sheet when you open up excel?
I've checked the boards but not much seems to be working for me

The code I've been trying to use is this on a worksheet called 'Intro Sheet' that has a few menus.

Private Sub Workbook_Open()
Application.Goto ("Intro Sheet")
End Sub

If I pop this in the workbook area - will the scroll lock code I have put on the sheet's own VB code list still work; it looks like this;

Private Sub Worksheet_Activate()
Worksheets("Intro Sheet").ScrollArea = "A1:A20"
End Sub

Thanks!!
Scho

 

[Cbrine]

Private Sub Workbook_Open()
Sheets("Intro Sheet").activate
End sub

The goto might work as well, but I've never used it.

The worksheet_activate code will still work.

HTH
Cal

 

[Schodoodles]

Brilliant Stuff!!!

Thanks!

 

[Smitty]

Why not just combine them:

<font face=Tahoma><SPAN style="color:#00007F">Private</SPAN> <SPAN style="color:#00007F">Sub</SPAN> Workbook_Open()
    Application.Goto [<SPAN style="color:#007F00">'Intro Sheet'!A1]</SPAN>
    ActiveSheet.ScrollArea = "A1:A20"
<SPAN style="color:#00007F">End</SPAN> <SPAN style="color:#00007F">Sub</SPAN></FONT>

HTH,

Smitty

{Edit: Heya Cal!}

 

[Schodoodles]

Can do but no worries.

I do seem to be having a problem though.

I've used the basic code that Cbrine gave me but it seems to be popping up an error for no apparent reason - Is it me!!!???

Anyway; the code;

Private Sub Workbook_Open()
Sheets("Intro Sheet").Activate
End Sub

The error window says;
Run-time erro '57121'
Application-defined or object-defined error.

I can click end and its all fine but it doesnt get rid of the fact something is wrong. I'm also a newbie at this kinda stuff and havent got a clue why its stopped working now - it worked at least once honest!!

Scho

 

[Smitty]

That code's fine. What's in your Activate event?

Smitty

 

[Schodoodles]

Well you got me there - thats the only code in the 'Thisworkbook' bit - every other bit of code is sheet relelvant as far as I know.

But it highlights that bit of code in yellow when I click the debug box.

Time for the GoTo function??

 

[Schodoodles]

ok its seems to have stopped playing around!

Thanks for the help!
Scho