Concatenate but keep the font format

[AnnieNollan]

Good day,

I’m trying to concatenate the text from a number of cells. But I want the first cell’s text to be bold.
A1 Class:
B1 Mr. Muller

I want it displayed as:
Class: Mr. Muller

I'm only starting with VBA. And having lot of trouble.

Thanks a lot.

 

[Rick Rothstein]

Assuming your data is in Columns A and B and that you want the output to go to Column C, give this macro a try...

Sub CombineAandBtoCwithAbold()
  Dim R As Long, LastRow As Long
  LastRow = Cells(Rows.Count, "A").End(xlUp).Row
  For R = 1 To LastRow
    Cells(R, "C").Value = Cells(R, "A").Value & " " & Cells(R, "B").Value
    Cells(R, "C").Characters(1, Len(Cells(R, "A").Value)).Font.Bold = True
  Next
End Sub