VBA to make the text bold in specific lines in a cell comment box

[cjcass]

Hi,
I have some simple code below that generates a cell comment based on the values in six cells.
I would like to have the text in the 1st, 3rd and 5th lines in the comment box to be 'bold'. The number of characters in the cells is completely variable.
How would I add to the code below to achieve this? Many thanks.

Sheet12.Select
    Range("D7").Comment.Text Text:=Range("E6") & Chr(10) & Range("E7") & Chr(10) & Range("E8") & Chr(10) & Range("E9") & Chr(10) & Range("E10") & Chr(10) & Range("E11")
    Range("D7").Comment.Shape.TextFrame.AutoSize = True
Range("D7").Select

 

[DanteAmor]

Try this

Sub bold_comment2()
  Dim n, n1, n2, n3, n4, n5, c
  Sheet12.Select
  n1 = Len([E6])
  n2 = Len([E7])
  n3 = Len([E8])
  n4 = Len([E9])
  n5 = Len([E10])
  c = Chr(10)
  
  With Range("D7")
    .Comment.Text Text:=[E6] & c & [E7] & c & [E8] & c & [E9] & c & [E10] & c & [E11]
    n = Len(.Comment.Text)
    With .Comment.Shape.TextFrame
      .AutoSize = True
      .Characters(1, n).Font.Bold = False
      .Characters(1, n1).Font.Bold = True
      .Characters(n1 + 1 + n2 + 1, n3 + 1).Font.Bold = True
      .Characters(n1 + 1 + n2 + 1 + n3 + 1 + n4 + 1, n5 + 1).Font.Bold = True
    End With
  End With
End Sub

 

[cjcass]

That works perfectly!!
Thank you very much indeed

 

[DanteAmor]

I'm glad to help you. Thanks for the feedback.