Code Error

[agonysWeeper]

Private Sub Workbook_Open()
Application.Goto Reference:=Sheet3.Range("A1"), Scroll:=True
End Sub


I have this code in my Workbook so that everytime I open this excel file with 36 sheet, it will always open focus to Sheet3, but in opening this file the macro debugger always appear for some error which is highlighted in red.

Anyone can fixed this problem?
Appreciate reply.
Thanks

 

[VoG]

That works for me. Are you sure that you have a sheet with the codename Sheet3?

 

[Norie]

Try Worksheets("Sheet3") instead of just Sheet3.

 

[agonysWeeper]

Yes Mr. Vog. I am pretty sure.

 

[VoG]

Does this work?

Private Sub Workbook_Open()
Application.Goto Reference:=Sheets(3).Range("A1"), Scroll:=True
End Sub

 

[agonysWeeper]

Got the error, I protect the sheet3 thats why there is an error.
Any solution to avoid this error even the sheet3 protected?

 

[VoG]

Try like this

Private Sub Workbook_Open()
With Sheet3
    .Unprotect password:="abc"
    Application.Goto Reference:=.Range("A1"), Scroll:=True
    .Protect password:="abc"
End With
End Sub

 

[Richard Schollar]

Make sure A1 on this sheet is UnLocked and that when you apply protection you allow selection of Unlocked cells (or just allow selection of Locked cells, but you may not want to do this).

 

[agonysWeeper]

All my sheets is all protected.

anyway, this code is running.
Thanks

Try like this

Private Sub Workbook_Open()
With Sheet3
    .Unprotect password:="abc"
    Application.Goto Reference:=.Range("A1"), Scroll:=True
    .Protect password:="abc"
End With
End Sub