Excel: Add comment author using vba

Question

When I add comments to a cell manually (using the insert comment command) the text is preceded by my username in bold font.

Is it possible to replicate this characterist

Answer 1

You can add the logged in user name (with the user name in bold) like so - this example for cell A1:

Sub EasyTest()
Dim shCmt As Comment
On Error Resume Next
Set shCmt = [a1].Comment
On Error GoTo 0
If shCmt Is Nothing Then
Set shCmt = [a1].AddComment
shCmt.Text Text:=Environ$("UserName") & Chr(10) & "TestMe"
shCmt.Shape.TextFrame.Characters(1, Len(Environ$("UserName"))).Font.Bold = True
Else
MsgBox "cell already has a comment"
End If
End Sub