Allow Editing Directly in Cell

[Cellardoor]

Dear Friends.

I have this option (aloow editing...) deactivated, which allows me to jump directly to the cell in the formula (as you probably know)

Let's assume this formula: " = Sheet2!F5". If i double click, i'll go directly to this cell

I also have the following code:

Private Sub Workbook_SheetActivate(ByVal Wsh As Object)

On Error Resume Next
Wsh.Range("A1").Select

End Sub

This code takes me to Cell A1 of the sheet I'm opening...

The thing is that this code also cancels the "allow editing..." work.

If I double click on "Sheet2!F5", instead of going to Sheet 2, Cell F5, I'll go to Sheet 2, Cell A1...

Is there any way to make an exception on the code? Or something that allows me to go the double clicked cell...

Thank you

Cellardoor