Corrigeer alstublieft de 2e code, beide voor hetzelfde werkblad.

EERSTE CODE WERKT PERFECT
Particulier subwerkblad_Wijziging (ByVal-doel als bereik)
Als niet snijden (doel, bereik ("D1")) is niets dan
Selecteer Case Range ("D1")
Doos "0.5": Half
Case "1": Een
Case "1.25": OneTwentyFive
End Select
End If
End Sub

TWEEDE CODE WERKT NIET (corrigeer onderstaande)
Privé subwijziging (ByVal-doel als bereik)
Als niet snijden (doel, bereik ("D2")) is niets dan
Selecteer Case Range ("D2")
Case "9.53": negenpuntvijf
End Select
End If
End Sub