Si prega di correggere il 2° codice, entrambi per lo stesso foglio di lavoro.

PRIMO CODICE PERFETTAMENTE FUNZIONANTE
Private Sub Worksheet_Change (ByVal Target As Range)
If Not Intersect(Target, Range("D1")) non è niente allora
Seleziona Intervallo casi ("D1")
Caso "0.5": metà
Caso "1": Uno
Caso "1.25": OneTwentyFive
End Select
End If
End Sub

SECONDO CODICE NON FUNZIONANTE (correggere quanto segue)
Modifica sub privato (per valore target come intervallo)
If Not Intersect(Target, Range("D2")) non è niente allora
Seleziona Intervallo casi ("D2")
Caso "9.53": novevirgolacinquetre
End Select
End If
End Sub