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.
--
Traa Dy Liooar

Jock


"Dave Peterson" wrote:

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 wrote:

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")
--
Traa Dy Liooar

Jock

--

Dave Peterson