Sub FixCharacter()

Columns(5).Replace What:=Chr(63), _
Replacement:="@", _
LookAt:=xlPart, _
SearchOrder:=xlByRows, _
MatchCase:=False

End Sub

Replace the "@" with whatever you want the replacement to be.

--
Regards,
Tom Ogilvy

"Les Stout" wrote:

Thanks Tom, i have established that it is Char (63), could you please
help me put this into some code, the e-mail addresses are all in column
E...

Best regards,

Les Stout

*** Sent via Developersdex http://www.developersdex.com ***