text strings in comments? I have some very large files riddled with
comments from past users. I would like to find the "Entered BY" names
in the comments and replace all in one step. Thx


---
Message posted from http://www.ExcelForum.com/

Flamikey < wrote:

text strings in comments? I have some very large files riddled with
comments from past users. I would like to find the "Entered BY" names
in the comments and replace all in one step. Thx

Sub ChangeCommentsName()
Set cmt = Worksheets("Hoja2").Comments
For Each c In cmt
c.Text "New Name:" & Chr(10) & Right(c.Text, _
Len(c.Text) - InStr(c.Text, ":") - 1)
Next
End Sub

This might get you started.
--
Beto
Reply: Erase between the dot (inclusive) and the @.
Responder: Borra la frase obvia y el punto previo.