Soru Hücre İçindeki Yazı Fontunu Şekillendirme

[leonadies]

Değerli Üstadlar;

K Sütununda K8:K65536 satır aralığında DAMGA(10) Kullanılarak yazılmış metinlerim var. İsteğim ise şöyle ilk sırada yer alan metinleri makro ile toplu olarak kalın formata çevirmek.
Sonuç görseldeki gibi olmasını istiyorum.

 

[Korhan Ayhan]

Deneyiniz.

Option Explicit

Sub Ilk_Metni_Kalin_Yap()
    Dim Veri As Range, Son As Long, Metin As Variant
    
    Son = Cells(Rows.Count, "K").End(3).Row
    If Son < 8 Then Exit Sub
    
    Range("K8:K" & Son).Font.Bold = False
    
    For Each Veri In Range("K8:K" & Son)
        Metin = Split(Veri.Value, Chr(10))
        Veri.Characters(1, Len(Metin(0))).Font.Bold = True
    Next

    MsgBox "İşleminiz tamamlanmıştır.", vbInformation
End Sub

 

[leonadies]

Harika Teşekkürler @Korhan Ayhan hocam