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.