worksheet after double click event

[stubarny]

Hello,

Please could you tell me the procedure name for an after click event?

This works for a BEFORE double click event:

Private Sub Worksheet_BeforeDoubleClick

But I thought this would work for an AFTER double click event (but it doesn't):

Private Sub Worksheet_DoubleClick(ByVal Target As Range, Cancel As Boolean)



Thanks for any help you can give,

Stu

 

[VoG]

There isn't an after double click event. What are you trying to do?

 

[stubarny]

I need a user to be able to double click on a formula and be taken to the source, but I need to ensure that I leave their computer settings unchanged.

I'd like to find the user's value for Application.EditDirectyInCell, then set Application.EditDirectyInCell to FALSE, then carry out the double click action, then set Application.EditDirectyInCell back to what the user originally had set on their computer.

Thanks,

Stu

 

[VoG]

Maybe like this

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim setting As Boolean
setting = Application.EditDirectlyInCell
Application.EditDirectlyInCell = False
'
'more code
'
Application.EditDirectlyInCell = setting
End Sub

Or maybe better

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Cancel = True
'
'more code
'
End Sub

 

[Norie]

Stu

What 'source'?

The formula precedents?

How would you move to them, hyperlink?

 

[stubarny]

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Cancel = True
'
'more code
'
End Sub

Thanks VoG, using your code above how should I get the target range from the formula (this is sometimes a cell reference and sometimes a name range)?

If I just use ActiveCell.Formula as below then the GoTo fails:

Application.Goto Reference:=Worksheets("Tab Name").Range("ActiveCell.Formula")

 

[VoG]

If the formula is simply like

=B27

then try

Application.Goto Reference:=Worksheets("Tab Name").Range(Right(ActiveCell.Formula, Len(ActiveCell.Formula) - 1))

 

[stubarny]

Thanks VoG, much appreciated