Hi Paul,

I used Chr(193) which worked for me.

As a suggestion, on the problematic system, verify the code, e.g.: copy the
character of interest into A1 and in B1 enter = Code(A1) to return the
corresponding code number.


---
Regards,
Norman



"Paul hampson" wrote in message
...
Thanks Norman but I get the same results as before that is there is no
replacement of the characters

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

---
Regards,
Norman


I think it is either to do with windows or office set ups but I can't see
what to change.