Formatting a comment by code

[Jock]

How can I apply bold formatting to the date part of the following code?
Target.Offset(0, 2).AddComment UserName() & " - AoS due by: " &
Format(strTemp, "dd/mm/yy")

 

[Dave Peterson]

Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)

Dim strTemp As Date

If Target.Cells.Count > 1 Then
Exit Sub
End If

If Intersect(Target, Me.Range("A:A")) Is Nothing Then
Exit Sub
End If

strTemp = Date

With Target.Offset(0, 2)
If .Comment Is Nothing Then
'do nothing
Else
.Comment.Delete
End If

.AddComment Application.UserName & " - AoS due by: " _
& Format(strTemp, "dd/mm/yy")

.Comment.Shape.TextFrame _
.Characters(Len(.Comment.Text) - 7, 8).Font.Bold = True

End With

End Sub

 

[Jock]

Hi Dave,
Thanks for your code.
As the snippet of code I placed in my thread is only a very small part of a
bigger picture, I can't replace mine with your example.
I have tried to add the line
..Comment.Shape.TextFame.... in various guises to my code however nothing
goes bold in the comment.
Thanks for trying though.

 

[Patrick Molloy]

all you needed to do was add a line

below this:
Target.Offset(0, 2).AddComment UserName() & " - AoS due by: " &
Format(strTemp, "dd/mm/yy")
add Dave Peterson's code:
target.Offset(0, 2).Comment.Shape.TextFrame _
.Characters(Len(target.Offset(0, 2).Comment.Text) - 7,
8).Font.Bold = True

Hi Dave,
Thanks for your code.
As the snippet of code I placed in my thread is only a very small part of
a
bigger picture, I can't replace mine with your example.
I have tried to add the line
.Comment.Shape.TextFame.... in various guises to my code however nothing
goes bold in the comment.
Thanks for trying though.

 

[Jock]

Thanks to Patrick and Dave

 

[Patrick Molloy]

"Traa Dy Liooar " ??

Thanks to Patrick and Dave