Automatically go to Worksheet upon opening

[Toonloon]

Hi All...

Upon opening, I want my Workbook to automatically go to a worksheet titled "Main Menu".

This workbook is shared out to multiple users.

The code i currently have in "ThisWorkbook" object is:
Private Sub Workbook_Open()
Sheets("Main Menu").Activate
Sheets("Main Menu").Range("A1").Activate
End Sub

This works, however, users are intermittently getting the error
"Run Time Error '1004'
Select method of Range class failed"

Any ideas/suggestions ?

Thanks a million.

 

[VoG]

Try

Private Sub Workbook_Open()
Application.Goto Sheets("Main Menu").Range("A1"), True
ActiveSheet.Unprotect password:="abc"
Call PivotSec1
ActiveSheet.Protect password:="abc"
End Sub

Change abc to the password (twice).

 

[kidwispa]

I managed to bypass the one error message by combining 2 of your suggestions:

Private Sub Workbook_Open()
On Error Resume Next
Application.Goto Sheets("Results").Range("A1"), True
ActiveSheet.Unprotect Password:="Password"
Call PivotSec1
ActiveSheet.Protect Password:="Password"
On Error GoTo 0
End Sub

However it's now bringing up the following message:

"Cannot edit PivotTable on protected sheet"

Which means that the macro isnt working properly... here is the code for the macro...

Sub PivotSec1()
'
' PivotSec1 Macro
'
'
    ActiveSheet.Unprotect
    ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True _
        , AllowUsingPivotTables:=True
End Sub

Thanks for all of your help with this - still new to VBA so this is all a bit confusing!!!

 

[VoG]

If that is all the code in PivotSec1 then I cannot understand why it generates an error.

 

[kidwispa]

It's really frustrating, because when protecting the sheet I select the option "Use PivotTable reports" but whenever I reopen the file after saving the sheet is still password protected but this option is no longer selected...

 

[VoG]

Maybe start a new thread from this as it is now a different problem to the post title.

 

[kidwispa]

Cheers - will do