Будь ласка, виправте 2-й код, обидва для одного аркуша.

ПЕРШИЙ КОД ПРАЦЮЄ ІДЕАЛЬНО
Приватний допоміжний робочий лист_Change(ByVal Target As Range)
Якщо не перетинається(ціль, діапазон("D1")) то нічого
Виберіть діапазон випадків ("D1")
Випадок «0.5»: Половина
Випадок «1»: один
Випадок «1.25»: OneTwentyFive
End Select
End If
End Sub

ДРУГИЙ КОД НЕ ПРАЦЮЄ (виправте, будь ласка, наведене нижче)
Зміна приватного підпорядкування (ByVal Target As Range)
Якщо не перетинається(ціль, діапазон("D2")) то нічого
Виберіть діапазон випадків ("D2")
Справа «9.53»: дев’ять п’ять три
End Select
End If
End Sub