Modified from the help index for FindNext

Sub findandbold()
With Range("k1:k500")
Set c = .Find("@", LookIn:=xlValues)
If Not c Is Nothing Then
firstAddress = c.Address
Do
With c.Font
.ColorIndex = 3
.Bold = True
End With
Set c = .FindNext(c)
Loop While Not c Is Nothing And c.Address < firstAddress
End If
End With

End Sub

--
Don Guillett
SalesAid Software

"frenchbox" wrote
in message ...

Hi,

I often treat raw texts and need to quickly visialize the paragraphs
containg email addresses. It takes me a great deal of working time to
manually click red-bold on each email address I see in a text and it is
not rare that I omit some addresses.

Is there a simple function (like replace all *@* with *@* red-bold) in
Excel or Word that I can use to automatize the process?

Thanx in advance


--
frenchbox
------------------------------------------------------------------------
frenchbox's Profile:
http://www.excelforum.com/member.php...o&userid=29271
View this thread: http://www.excelforum.com/showthread...hreadid=496048