gebruikersnaam in opmerking vervangen

[brandernl]

Om in Excel gebruikersnaam in opmerking vervangen heb ik deze code van het net geplukt

Sub Opmerking_Aanpassen()
'replaces old names in Excel comments
'deletes and reinserts Excel comments
'  so new name appears in status bar
'www.contextures.com\xlcomments03.html
Dim ws As Worksheet
Dim cmt As Comment
Dim strOld As String
Dim strNew As String
Dim strComment As String
strNew = ""
strOld = "grootb:" & vbLf
Application.UserName = strNew
For Each ws In ActiveWorkbook.Worksheets
  For Each cmt In ws.Comments
    strComment = Replace(cmt.Text, strOld, strNew)
    cmt.Delete
    cmt.Parent.AddComment Text:=strComment
  Next cmt
Next ws
End Sub

Maar nu heeft Excel de eigenaardigheid om de ene keer mijn username "grootb" bij een opmerking in te voegen en de andere keer "Groot, Bernard de".
Nu kan ik bovenstaande code 2 keer laten lopen, eerst met de ene naam en dan met de andere, maar moet natuurlijk een elegantere methode zijn.
Ik heb geprobeerd met

strOld = cmt.Text

, maar dat werkt nie......
Graag jullie hulp

 

[HSV]

Hallo,

Als je van dit stukje:

strOld = "grootb:" & vbLf

nu eens dit maakt.

strOld = "grootb:"

 

[brandernl]

Dag Harry,
Die

vbLf

staat er omdat de opmerking anders met een lege regel begint, Excel zet er kennelijk username en een <enter> neer.

 

[HSV]

Dat begrijp ik Bernard,

Ik had de macro even getest met en zonder de 'vbLf', mét doet de macro er twee keer over, of deed helemaal niets (door de cursor op de volgende regel).
Zonder loopt het als een trein.

Misschien helpt het om een voorbeeldje plaatsen.

 

[brandernl]

Het is een bestand waarin errug veel opmerkingen zijn ingevoegd. Ik kijk maandag even wat ik als voorbeeld kan plaatsen.
Goed weekeinde