I am searching for code to run a specific macro when i change the data in a particular cell.
I am already running a Private Sub Worksheet_Change code on the sheet and when i add another, i get errors.

This is what i have now and do not want to remove.
Formula: copy to clipboard
Private Sub Worksheet_Change(ByVal Target As Range)

If Target.Cells.Count > 1 Or Target.HasFormula Then Exit Sub

On Error Resume Next
If Not Intersect(Target, Range("E4:ABK20")) Is Nothing Then
Application.EnableEvents = False
Target = UCase(Target)
Application.EnableEvents = True
End If
On Error GoTo 0

End Sub



This is the type of thing found on an internet search which when added to the above code causes a runtime error.
[Range(FindDate) represents the cell i called FindDate which when changed I want to run the Macro called FindSelectedDate]

Formula: copy to clipboard
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range(FindDate)) Is Nothing Then FindSelectedDate
End Sub


How can i achieve this please?