On Mon, 27 Sep 2004 14:49:21 -0400, "Tom Ogilvy"
wrote:

Well, you could only select the cells you want to process or it could stop
when it hits a blank cell

Dim sStr as String, cell as Range
for each cell in selection
if isempty(cell) then exit for
sStr = cell
sStr = Application.Substitute(sStr,"-- Modified by: ABC","")
sStr = Application.Substitute(sStr,chr(13),"")
cell.value = sStr
Next

Tom,

Last item.....

Is there a way to make this macro available to all worksheets?

TIA

Bob