Reply to thread

Message: [QUOTE="Guest, post: 8470277"] Can you help me by editing this code so that every instance of the username is in bold whether it is a new comment or an add to comment? I would prefer just the username be in bold but the username,hour,time line being all bold as it is now is acceptable. Sub KeyCellsChanged() Dim strDate As String Dim cmt As Comment Dim Username As String Dim lName As Long strDate = "ddmmmyy hh:mm" Username = Application.Username Set cmt = ActiveCell.Comment lName = 0 If cmt Is Nothing Then Set cmt = ActiveCell.AddComment cmt.Text Text:=Username & " " & Format(Now, strDate) & Chr(10) lName = InStr(1, cmt.Text, Chr(10)) - 1 cmt.Shape.TextFrame.Characters(1, lName).Font.Bold = True Else cmt.Text Text:=cmt.Text & Chr(10) _ & Username & Format(Now, strDate) lName = InStr(1, cmt.Text, Chr(10)) - 1 cmt.Shape.TextFrame.Characters.Font.Bold = False cmt.Shape.TextFrame.Characters(1, lName).Font.Bold = True End If End Sub [/QUOTE]