| Home |
| Search |
| Today's Posts |
|
#1
Posted to microsoft.public.excel.misc
|
|||
|
|||
Open at same sheet everytime
Hi,
I have a workbook with over 20 sheets used by multiple users. How can I get Excel to open at an index page everytime (instead of opening on the last page that was saved) Joel kindly gave me the following information Private Sub App_WorkbookOpen(ByVal Wb As Workbook) * * ThisWorkbook.Sheets("Sheet2").Activate End Sub I placed this in the Sheet2 and also in the 'This workbook' within VBA and both did not work. The name of my sheet is Help and I changed "Sheet2" to help - no joy. What am I doing wrong - Thanks |
|
#2
Posted to microsoft.public.excel.misc
|
|||
|
|||
|
Open at same sheet everytime
hi
this will work better i think. a simplified version. Private Sub Workbook_Open() Sheets("Sheet2").Activate End Sub this is workbook code so it should be placed in the thisworkbook module. it's also advisable to remove the code you placed in the sheet module. Regards FSt1 "Paul" wrote: Hi, I have a workbook with over 20 sheets used by multiple users. How can I get Excel to open at an index page everytime (instead of opening on the last page that was saved) Joel kindly gave me the following information Private Sub App_WorkbookOpen(ByVal Wb As Workbook) ThisWorkbook.Sheets("Sheet2").Activate End Sub I placed this in the Sheet2 and also in the 'This workbook' within VBA and both did not work. The name of my sheet is Help and I changed "Sheet2" to help - no joy. What am I doing wrong - Thanks |
|
#3
Posted to microsoft.public.excel.misc
|
|||
|
|||
|
Open at same sheet everytime
On 3 Apr, 17:15, FSt1 wrote:
hi this will work better i think. a simplified version. Private Sub Workbook_Open() Sheets("Sheet2").Activate End Sub this is workbook code so it should be placed in the thisworkbook module. it's also advisable to remove the code you placed in the sheet module. Regards FSt1 "Paul" wrote: Hi, I have a workbook with over 20 sheets used by multiple users. How can I get Excel to open at an index page everytime (instead of opening on the last page that was saved) Joel kindly gave me the following information Private Sub App_WorkbookOpen(ByVal Wb As Workbook) * * ThisWorkbook.Sheets("Sheet2").Activate End Sub I placed this in the Sheet2 and also in the 'This workbook' within VBA and both did not work. The name of my sheet is Help and I changed "Sheet2" to help - no joy. What am I doing wrong - Thanks- Hide quoted text - - Show quoted text - Thank you very much - working great |
| Reply |
| Thread Tools | Search this Thread |
| Display Modes | |
|
|
Similar Threads
|
||||
| Thread | Forum | |||
| EULA keeps popping up everytime I open EXCEL | Setting up and Configuration of Excel | |||
| how can I open an excel file everytime on certain sheet? | Excel Discussion (Misc queries) | |||
| Keep original header date everytime I open, it always changes. | Excel Discussion (Misc queries) | |||
| How do I add one to a number everytime I open the same workbook | Excel Worksheet Functions | |||
| How do I set up an excel doc. to open on the same tab everytime | Excel Discussion (Misc queries) | |||
Linear Mode
