Concatenate and change format

[minhys1]

Concatenate 2 or multiple cell and change format

[nankw83]

Hi minhys1,

Try below code …

Sub test()

With Range("D3")
    .Value = [B3] & " " & [B5]
    .Characters(1, Len([B3])).Font.Bold = True
    .Characters(Len([B3]) + 2, Len([B5])).Font.Italic = True
End With

End Sub

[minhys1]

nankw83, yes , your code work good. If using VBA function, it will be better

[nankw83]

Thanks minhys1 for the reps

As far as I know, you can NOT have different text formatting in an excel function

[minhys1]

nankw83, thank you support me