change event doesnt work

Thanks a lot for Joel last time providing me the following codes, but what I
have is DDE links which seems dont trigger the the change event, wonder
whether there is other way to realise it.

Thanks in advance

Sub worksheet_change(ByVal Target As Range)
Application.EnableEvents = False

Call common_code(Target)
Application.EnableEvents = True

End Sub

Sub common_code(ByVal Target As Range)
If (Target.Row >= 5) And (Target.Row <= 7) And _
(Target.Column >= 2) And (Target.Column <= 7) Then

Range("B5:G7").Copy
Set myCell = Cells(Rows.Count, 2).End(xlUp)(2)
myCell.PasteSpecial _
Paste:=xlPasteValues
With myCell.Offset(0, -1).Resize(3)
.Value = Now
.NumberFormat = "mm/dd/yy hh:mm:ss"
End With
End If
End Sub