Macro Selection Help

[billythedj66]

Happy Post-Halloween All,

I have the following macro:

Private Sub Worksheet_Change(ByVal Target As Range)

Sheets("Old Round").Unprotect
Application.Run "'Stats.xlsm'!ClearScorecard"
Application.Run "'Stats.xlsm'!SetScorecard"
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
Range("A1").Select
ActiveWindow.ScrollRow = ActiveCell.Row
ActiveWindow.ScrollColumn = ActiveCell.Column
Range("D8").Select

End Sub

Which works exactly like I want except that it runs whenever I enter data into any cell. How can I make this macro only run when cell "D8" changes. Cell "D8" has data validation with a list. I believe this is an easy fix, any help would be appreciated.

Thanks

 

[Jonmo1]

You can try a line at the beginning like

If Target.Address <> "$D$8" Then Exit Sub