Hi Bob,
Thanks for the reply


I tried many ways including your suggestion and something like this

Sheets(2).Activate
Range("A:B").Select
Selection.Replace what:="_", Replacement:=" ", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False,
_
ReplaceFormat:=False

Range("F:G").Select
Selection.Replace what:=" ", Replacement:="_", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False,
SearchFormat:=False, _
ReplaceFormat:=False

But still, every cells' spaces are converted to underscore.
even though I turned on the screen update and saw the selections were
made correctly


--
level3
------------------------------------------------------------------------
level3's Profile: http://www.excelforum.com/member.php...o&userid=34541
View this thread: http://www.excelforum.com/showthread...hreadid=543036