Open a worksheet to a specific work sheet

In ThisWorkbook module put this

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

Juan Pablo G.

Hi Chris,

Keypress Alt F11
In Project Explorer - click on ThisWorkbook

and type:

Option Explicit
Private Sub Workbook_Open()
Sheets(your sheet).Activate
End Sub

Jim

This does not seem to work.

Why not ?

You have to replace "Sheet1" with the actual name of your sheet...

That SHOULD work (And does)

Juan Pablo G.

You have to replace "Sheet1" with the actual name of your sheet... That SHOULD work (And does)

I did that and it works when I run it within
the spreadsheet, but if I go to another sheet
and enter information then save the spreadsheet
while I am on another sheet then close out, then
I open the spreadsheet back up it goes to the sheet that I had open last. Is there some way to
run that code when I open up the spreadsheet?

Where did you put the code ?

It should NOT go in a standard module. It should go in module of the book (Appears as ThisBook)

Juan Pablo G.

:I did that and it works when I run it within
:the spreadsheet, but if I go to another sheet
:and enter information then save the spreadsheet
:while I am on another sheet then close out, then
:I open the spreadsheet back up it goes to the
:sheet that I had open last. Is there some way to
:run that code when I open up the spreadsheet?

It should NOT go in a standard module. It should go in module of the book (Appears as ThisBook) :I did that and it works when I run it within

Thanks that worked. Got one more question if you know. Can you have message boxes appear in excel?

MsgBox "Like this ?"

Juan Pablo G. : Where did you put the code ? : It should NOT go in a standard module. It should go in module of the book (Appears as ThisBook) : :I did that and it works when I run it within