Selection.Replace What:="4", Replacement:="C.LIABLITIES", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=True, SearchFormat:=False, _
ReplaceFormat:=False

When I am giving the above condion at the end of the following replace
statement , the result is showing wrongly. Please anybody can suggest a good
openion for this.


Columns("S:S").Select
Range("S1").Activate

Selection.Replace What:="0", Replacement:="ASSET", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=True, SearchFormat:=False, _
ReplaceFormat:=False
Columns("S:S").AutoFit



Selection.Replace What:="1", Replacement:="C.ASSET", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=True, SearchFormat:=False, _
ReplaceFormat:=False


Selection.Replace What:="2", Replacement:="F.ASSET", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=True, SearchFormat:=False, _
ReplaceFormat:=False



Selection.Replace What:="3", Replacement:="LIABLITIES", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=True, SearchFormat:=False, _
ReplaceFormat:=False

With Regards
Pol