Sub ReplaceMacro()
Cells.Replace What:="*<", Replacement:="", LookAt:=xlPart,
SearchOrder _
:=xlByRows, MatchCase:=True, SearchFormat:=False,
ReplaceFormat:=False
Cells.Replace What:="", Replacement:="", LookAt:=xlPart,
SearchOrder:= _
xlByRows, MatchCase:=True, SearchFormat:=False,
ReplaceFormat:=False
End Sub

HTH

Die_Another_Day
vmadan16 wrote:
Hello All,

Please help me to trim a file with more than 1000 email Ids.
It is in the below form
xxxxx

from the above mentioned form I should get only the perfect email Id. (i.e)
xxxxx =

Please help me to build this Macro. It will be very helpful for me.

Thanx in Advance.
Madhan