Excel VBA Code help

[SamT]

Option Explicit

Dim DClckd As Boolean

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
DClckd = True
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    DClckd = False
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
MsgBox Target.Address
End Sub