in Excel 2003 I've an input worksheet with text in some cells
some users formated their text using multiple spaces causing text length
problems

from another spreadsheet which is proofing the input I can locate the
problem cells

SrceFld ="D45"

Len(SrceBook.Sheets("InputSheet").Range(SrceFld).V alue)

I want to replace all cell contents occurances of " " with " " (double
space with single space)

I've tried
didn't change anything Replace
SrceBook.Sheets("InputSheet").Range(SrceFld).Value , " ", " ", 1, -1, 1

didn't change anything
SrceBook.Sheets("("InputSheet").Range(SrceFld).Rep lace What:=" ",
replacement:=" ", Lookat:=xlPart

Fails SrceBook.Sheets("Execute Dealer Plan").Range(SrceFld).Value.Replace
What:=" ", replacement:=" ", Lookat:=xlPart


--
Jim