Çözüldü makro kodu exceli kapatıyor

merhaba bir gücrede aşağıdaki kodu kullanıyorum,
bilgisayar değişikliği oldu hem windows hem de excel sürümü değişti
bu nedenle ilgili hücreye ne yazsam excel kendini kapatıyor, kodu silince sorun yaşamıyorum,
bu kodun yerien kullanabilceğim başka kod var mı?
şuan kukkalndığım microsoft 365, sürüm 2503

Private Sub Worksheet_Change(ByVal Target As Range)

If Target.Address = "$B$5" Then

Value = Replace(Range("B5").Value, ChrW(304), "I")
Value = Replace(Value, ChrW(305), "I")
Value = Replace(Value, ChrW(199), "C")
Value = Replace(Value, ChrW(231), "C")
Value = Replace(Value, ChrW(214), "O")
Value = Replace(Value, ChrW(246), "O")
Value = Replace(Value, ChrW(220), "U")
Value = Replace(Value, ChrW(252), "U")
Value = Replace(Value, ChrW(287), "G")
Value = Replace(Value, ChrW(286), "G")
Value = Replace(Value, ChrW(350), "S")
Value = Replace(Value, ChrW(351), "S")
Range("B5") = UCase(Value)

End If

End Sub