Makro ile bir string içindeki bazı karakterleri farklı renkte sayfaya yazılması

[cout(h)ane]

Herkese merhaba,

Çalışma kitabının A1 hücresine makro ile "Deneme" yazmak istiyorum. Buradaki "D" harfinin kırmızı renkte (ayrıca mümkünse kalın) yazılması için nasıl bir kodlama yapmam gerekir?

Yardımcı olacaklara şimdiden teşekkür ederim.

 

[dEdE]

Merhaba,
Böyle bir şey mi acaba?

Sub Deneme()
Range("A1").Select
ActiveCell.Value = "Deneme"
    With ActiveCell.Characters(1, 1).Font
        .Name = "Arial Tur"
        .FontStyle = "Kalın"
        .ColorIndex = 3
    End With
End Sub

 

[cout(h)ane]

Teşekkürler, bu işimi görüyor.

 

[dEdE]

Rica ederim.
İyi çalışmalar.