enter key to run macro in worksheet

Hi guys,
I would like a macro to run when I press the enter key in cell D10, but I already have a the following code with the sheet.

Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
If Not Application.Intersect(Target, Range("A10")) Is Nothing Then
Target(1).Value = UCase(Target(1).Value)
End If
Application.EnableEvents = True
End Sub

I have tried to combine this with the following code with no success;

Private Sub Worksheet_Change(ByVal Target As Range)
Dim FoundRng1 As Range

Application.EnableEvents = False
If Target.Address = "$D$10"  Then

Sub Daily_Fuel_Line_Save2()

End If
Application.EnableEvents = True
End Sub

Is there a way to make this work?

Something like:

Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
If Not Application.Intersect(Target, Range("D10")) Is Nothing Then
Target(1).Offset(, -3).Value = UCase(Target(1).Offset(, -3).Value)
End If
Application.EnableEvents = True
End Sub

The first code I posted works fine, I need a separate macro to run named "Sub Daily_Fuel_Line_Save2()" saved in module 16 when I press the enter key in cell D10.