i have a data validation with a drop down list, and

Private Sub Worksheet_Change(ByVal Target As Range)

If Target.Address = Range("d2").Address Then
Range("d5").Value = Range("b1").Value
Range("f5").Value = Range("c1").Value
Application.Run "changesquare"
End If
End Sub

however when i drop down the list and select a different value nothing happens
any ideas?

thanks in advance