Thanks Norman That did the job.

Paul
"Norman Jones" wrote:

Hi Paul,

Try using the ChrW function, e.g.:

rRange.Replace What:=ChrW(193), _
Replacement:="A", _
LookAt:=xlPart, _
SearchOrder:=xlByColumns

T