Global replacement of Comment's User name in workbook

[HubbaBuba]

I've changed 'the user's name', but that is only prospective (going forward). Do I have to get into VBA, or what is recommended to change ALL user names. (The "replace" command doesn't do it either).

Any thoughts? Thanks!

 

[VoG]

Try

Sub Cmts()
Dim cmt As Comment, ws As Worksheet, s As String
s = InputBox("Enter old username")
For Each ws In ThisWorkbook.Worksheets
    For Each cmt In ws.Comments
        With cmt.Parent
            .NoteText Text:=Replace(.NoteText, s, Application.UserName)
        End With
    Next cmt
Next ws
End Sub

 

[HubbaBuba]

Thank you kindly Peter. will try.

 

[HubbaBuba]

Peter (or anyone), When I run it it takes me to one cell and opens a box w/ old user name. (But thought it would auto-replace all.) When it opens a cell w/ old user name at top, and a box at the bottom, I type my username in. I hit <enter. and it only sends me back to the VBA module screen (?).

Any ideas what I did wrong/to change? Here's what I put into VBA module:
Sub Cmts()
Dim cmt As Comment, ws As Worksheet, s As String
s = InputBox("Edward")
For Each ws In ThisWorkbook.Worksheets
For Each cmt In ws.Comments
With cmt.Parent
.NoteText Text:=Replace(.NoteText, s, Application.UserName)
End With
Next cmt
Next ws
End Sub

 

[VoG]

Try

Sub Cmts()
Dim cmt As Comment, ws As Worksheet, s As String
s = "Edward"
For Each ws In ThisWorkbook.Worksheets
    For Each cmt In ws.Comments
        With cmt.Parent
            .NoteText Text:=Replace(.NoteText, s, Application.UserName)
        End With
    Next cmt
Next ws
End Sub

 

[HubbaBuba]

Thanks, but didn't work. Didn't remove old user name from comments. (Oddly, did however, make enter comment section bold font). Any other ideas appreciated.
Thanks much

 

[HubbaBuba]

Anyone have any ideas? Still need to globally change user name on historical entries.

 

[VoG]

When I run the first code that I posted it doesn't "take me" anywhere. It asks for the username to replace then replaces that username with the current username in all comments in all worksheets in the workbook that the code is run from.