Change Font in cell

[Metrazal]

I have text in a cell for which I need to change the format for part of the cell. My cell contains 5 lines.

Following is what I have (in one cell) to start with:

Text1
Text2 Text3
Text4
Text5 Text6
Text7 Text8

Following is what I need:

Text1
Text2 Text3
Text4
Text5 Text6
Text7 Text8


You will notice that the first part of line five has a different font but the second part defaults back to the original text. I have multiple cells that I need to be formated this way.

I have been able to format the line 5 with the following code but I now need to be able to format only a portion of the line. (In the above example Text7 would have a different font than Text8.)

  Dim cell As Range
    For Each cell In Range("A1:C1500").Cells
        With cell
            If InStr(.Text, vbLf) Then
                .Characters(Start:=InStrRev(.Text, vbLf) + 1, _
                            Length:=32767).Font.Name = "Free 3 of 9 Extended"

Any help would be appreciated.


Thanks,

Metrazal