Corrija el segundo código, ambos para la misma hoja de trabajo.

PRIMER CÓDIGO FUNCIONANDO PERFECTAMENTE
Sub hoja de trabajo privada_Cambio (según el rango de destino ByVal)
Si no intersecta (objetivo, rango ("D1")) no es nada, entonces
Seleccionar rango de casos ("D1")
Caso "0.5": Mitad
Caso "1": Uno
Caso "1.25": OneTwentyFive
Fin Seleccionar
Si terminar
End Sub

EL SEGUNDO CÓDIGO NO FUNCIONA (corregir lo siguiente)
Cambio secundario privado (objetivo ByVal como rango)
Si no intersecta (objetivo, rango ("D2")) no es nada, entonces
Seleccionar rango de casos ("D2")
Caso "9.53": nuevepuntocincotres
Fin Seleccionar
Si terminar
End Sub