Metni büyük harfe dönüştürürken Türkçe karakterleri de göz önünde bulunduran VBA kodu alternatifidir.
Option Explicit
Sub TurkceKarakterleriKullanarakBuyukHarfeDonustur()
Dim metin As String
metin = UCase(Replace(Replace(Range("A1"), "i", "İ"), "ı", "I"))
Range("B1") = metin
End Sub