running a macro when a cell changes

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:

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:

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?

I simply pasted it into VBA. (see below)

I did try adding just the If Not Intersect(Target, Range(FindDate)) Is Nothing Then FindSelectedDate before the End Sub but of course it failed too.

Formula:

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



-------------------------------------------------------------------------------------------- (line automatically inserted by VBA)

Private Sub Worksheet_Change(ByVal Target As Range)



    If Not Intersect(Target, Range(FindDate)) Is Nothing Then FindSelectedDate



End Sub

You are a legend, thank you so much.