VBA to format bold a concatenated string

The code has to go in the sheet module for worksheet DO NOT DELETE (the sheet where the change occurs). Change "Sheet1" as appropriate.

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, Me.Range("A24,B24,C24")) Is Nothing Then
        On Error GoTo Oops
        Application.EnableEvents = False
        With Worksheets("Sheet1").Range("A155")
            .Value = Trim(Me.Range("A24").Text & " " & _
                          Me.Range("B24").Text & " " & _
                          Me.Range("C24").Text)
            .Characters(Start:=Len(Me.Range("A24").Text) + 2, _
                        Length:=Len(Me.Range("B24").Text)).Font.Bold = True
        End With
Oops:
        Application.EnableEvents = True
    End If
End Sub