Private Sub Worksheet_Change(ByVal Target As Range)
MacroChange ActiveCell
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
MacroChange ActiveCell
End Sub
Sub MacroChange(Target As Range)
If Not Intersect(Target, Range("D5:D1004")) Is Nothing Then
If IsEmpty(Target) Then
Else
End If
End If
End Sub