Doppelklick wieder einschalten

[Atlan]

Hallo,
habe in meiner Tabelle den Doppelklick ausgeschaltet, wer kann mir sagen wie ich den wieder einschalten kann?
und wer kann mir sagen welche Formel das ist ?
Sorry, aber mein Kolzkopf ist total zu  

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
'Updateby Extendoffice 20160725
    Dim xFormula As String
    On Error GoTo Out:
    xFormula = Target.Cells(1).Validation.Formula1
    If Left(xFormula, 1) = "=" Then
        Target.Cells(1) = Range(Mid(xFormula, 1)).Cells(1).Value
    End If
Out:
End Sub

[snb]

habe in meiner Tabelle den Doppelklick ausgeschaltet

Wie ?