A family of Microsoft spreadsheet software with tools for analyzing, charting, and communicating data.
Hi Albanis
That's amazing
This is the macro I did
**************************************************
Sub JoinStrings_and_keep_Formating()
Dim LRow, k, m, p As Long
Dim Result As Range
Dim strBold As String
''' This is the last occupied row in column X
LRow = ActiveSheet.Cells(Rows.Count, "X").End(xlUp).Row
For k = 2 To LRow
Set Result = ActiveSheet.Cells(k, "AA")
''' concatenate values
Result.Value = Trim(Cells(k, "Y").Value) & Chr(32) & Trim(Cells(k, "Z").Value) & Chr(32) & Trim(Cells(k, "X").Value)
m = Len(Trim(Cells(k, "X").Value)) ''' String to be bolded Lenth
p = InStr(Result.Value, Trim(Cells(k, "X").Value)) '' String to be bolded position
Result.Characters(p, m).Font.Bold = True ''' Bolding
Result.Characters(p, m).Font.Underline = xlUnderlineStyleSingle '''Underlining
Next k
MsgBox "Done"
End Sub
***************************************************************************************
But yours is amazing
Could you give me some details of how you created it?
How you collect this variables Prefix, Mid, Name?
I gave you Upvote *****
Thanks a lot, in advance.