Cell B2 in my worksheet is changed through an automated DDE connection to the workbook.Whenever the stock price changes I want to post the result to a table in the same worksheet. The difficulty I am having is that I can see the cell changing but the Selection Change Event is not firing.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim R As Integer, C As Integer, N As Integer
Let N = Range("$A$1").Value
Application.EnableEvents = False
If Target.Address = "$B$2" Then
R = 6 + N
C = 3
Cells(R, C).Value = Target.Value
Cells(R, C + 1).Value = Target.Offset(0, 1).Value
Cells(R, C - 2).Value = Now()
Cells(R, C - 1).Value = Now()
End If
Application.EnableEvents = True
End Sub
Any assistance would be appreciated.