[mso] Re: Excel Open File

In the ThisWorkbook module put

Option Explicit

Private Sub Workbook_Open()
  Worksheets("Sheet1").Activate
  Range("A1").Activate
End Sub

This assumes that you want to activate the sheet whose name is "Sheet1".  If 
you want to go to the first sheet, regardless of name, then

Option Explicit

Private Sub Workbook_Open()
  Worksheets(1).Activate
  Range("A1").Activate
End Sub


Regards, Dave S

----- Original Message ----- 
From: "Herbert Chitate" <herbertc@xxxxxxxxx>
To: <mso@xxxxxxxxxxxxx>
Sent: Thursday, March 19, 2009 10:45 PM
Subject: [mso] Excel Open File


> Hi All,
>
> I was just wondering if anyone might know of a function that makes Excel
> open a spreadsheet at the same point regardless of which tab the save
> button may have been clicked.
>
> An example might be setting excel to open on sheet 1 cell A1?
>
> Maybe a small code?
>
> Many thanks
>
> Herbert
> *************************************************************
> You are receiving this mail because you subscribed to mso@xxxxxxxxxxxxx or 
> MicrosoftOffice@xxxxxxxxxxxxxxxx
>
> To send mail to the group, simply address it to mso@xxxxxxxxxxxxx
>
> To Unsubscribe from this group, visit the group's homepage and use the 
> dropdown menu at the top.  This will allow you to unsubscribe your email 
> address or change your email settings to digest or vacation (no mail).
> http://www.freelists.org/webpage/mso
>
> To be able to share files with the group, you must join our Yahoo sister 
> group.  This group will not allow for posting of emails, but will allow 
> you to join and share problem files, templates, etc.: 
> http://tech.groups.yahoo.com/group/MicrosoftOffice . This group is for 
> FILE SHARING ONLY.
>
> If you are using Outlook and you see a lot of unnecessary code in your 
> email messages, read these instructions that explain why and how to fix 
> it:
> http://personal-computer-tutor.com/abc3/v28/greg28.htm
> ************************************************************* 

*************************************************************
You are receiving this mail because you subscribed to mso@xxxxxxxxxxxxx or 
MicrosoftOffice@xxxxxxxxxxxxxxxx

To send mail to the group, simply address it to mso@xxxxxxxxxxxxx

To Unsubscribe from this group, visit the group's homepage and use the dropdown 
menu at the top.  This will allow you to unsubscribe your email address or 
change your email settings to digest or vacation (no mail).
http://www.freelists.org/webpage/mso

To be able to share files with the group, you must join our Yahoo sister group. 
 This group will not allow for posting of emails, but will allow you to join 
and share problem files, templates, etc.:  
http://tech.groups.yahoo.com/group/MicrosoftOffice . This group is for FILE 
SHARING ONLY.

If you are using Outlook and you see a lot of unnecessary code in your email 
messages, read these instructions that explain why and how to fix it:
http://personal-computer-tutor.com/abc3/v28/greg28.htm
*************************************************************

Other related posts: