Need correction in VBA code

Please correct the  2nd code, both for the same worksheet.

FIRST CODE WORKING PERFECTLY
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("D1")) Is Nothing Then
Select Case Range("D1")
Case "0.5": Half
Case "1": One
Case "1.25": OneTwentyFive
End Select
End If
End Sub

SECOND CODE NOT WORKING (plz correct the below)
Private Sub Change(ByVal Target As Range)
If Not Intersect(Target, Range("D2")) Is Nothing Then
Select Case Range("D2")
Case "9.53": ninepointfivethree
End Select
End If
End Sub