[gr8styl]

Φίλε μου,
το αποτέλεσμα μιας συνάρτησης δεν μπορεί να έχει μίξη μορφοποιήσεων
Αντίθετα όταν έχεις ένα κελί που περιέχει πχ κείμενο και θέλεις να μορφοποιήσεις με έντονη γραφή από την πρώτη αλλαγή γραμμής char(10) και πέρα πρέπει να χρησιμοποιήσεις τον παρακάτω κώδικα.

Sub Conc_format()
Dim p As Integer
    p = InStr(1, ActiveCell, Chr(10))
    With ActiveCell.Characters(Start:=p + 1, Length:=Len(ActiveCell) - p).Font
        .FontStyle = "Bold"
    End With
End Sub

Η προσέγγισή σου δεν είναι και πολύ "ορθόδοξη". Εγώ θα διατηρούσα τα περιεχόμενα σε διαφορετικά κελιά και χρησιμοποιώντας μορφοποίηση υπό όρους θα εφάρμοζα την έντονη γραφή όπου χρειαζόταν.

Φιλικά
Θανάσης