Kırmızı renk yazdırma

[bjkliislam]

Merhabalar;

Kod içerisinde koyu ile işaretlediğim kodu, hücreye yazdırırken kırmızı renkli olarak yazmasını istiyorum.
yardımcı olabilir misiniz?
teşekkür ederim.
iyi çalışmalar.
saygılarımla.


If Sheets("mep2").Range("o" & i) = "Var" Then statikust = "üst yüzeyde " & Sheets("mep2").Range("p" & i) & " adet " & Sheets("mep2").Range("q" & i) & " statik tespit edilmiştir." & " PAN TARİHİ: " & Sheets("mep1").Range("e" & i) Else statikust = ""

 

[Haluk]

If Sheets("mep2").Range("o" & i) = "Var" Then
    statikust = "üst yüzeyde " & Sheets("mep2").Range("p" & i) & " adet " & Sheets("mep2").Range("q" & i) & " statik tespit edilmistir." & " PAN TARIHI: " & Sheets("mep1").Range("e" & i)
    x = Len(statikust)
    y = Len("PAN TARIHI: " & Sheets("mep1").Range("e" & i))
    
    Sheets("???????").Range("????????").Characters(x - y + 1, y).Font.Color = vbRed
    
Else

statikust = ""

End If

.

 

[bjkliislam]

If Sheets("mep2").Range("o" & i) = "Var" Then
    statikust = "üst yüzeyde " & Sheets("mep2").Range("p" & i) & " adet " & Sheets("mep2").Range("q" & i) & " statik tespit edilmistir." & " PAN TARIHI: " & Sheets("mep1").Range("e" & i)
    x = Len(statikust)
    y = Len("PAN TARIHI: " & Sheets("mep1").Range("e" & i))
  
    Sheets("???????").Range("????????").Characters(x - y + 1, y).Font.Color = vbRed
  
Else

statikust = ""

End If

.

Hocam teşekkür ederim.
Yanlış yerde düzeltme yapmaya çalışıyormuşum.
asıl hücreye yazdırma yaptığım yere uyguladım.
elinize sağlık.