Aynı Hücre İçerisinde Üstteki Metni Kalın Harf Yapmak

[meslek5]

A1 hücresi içerisinde yer alan alt alta iki metnin üsteki metnini aşağıdaki örnekte olduğu gibi makro ile kalın harf yapabilir miyiz. Şimdiden teşekkür ederim.

A1 hücresi içeriği;

Hülya ASLIHAN
(05***********)

 

[Korhan Ayhan]

Deneyiniz.

Sub Bold_First_Line()  
    If InStr(Range("A1"), Chr(10)) > 0 Then
        Range("A1").Characters(1, InStr(Range("A1"), Chr(10)) - 1).Font.Bold = True
    End If
End Sub

 

[meslek5]

Deneyiniz.

Sub Bold_First_Line()
    If InStr(Range("A1"), Chr(10)) > 0 Then
        Range("A1").Characters(1, InStr(Range("A1"), Chr(10)) - 1).Font.Bold = True
    End If
End Sub

Korhan hocam çok teşekkür ederim.