Remove unwanted character from range of cells

Hello everybody
I have some data in column A
for example
I have this name "ســـــــــــالــــم" I need this name to be like that "سالم"

The first name is made by convert keyboard to Arabic input and typing Shift + J when typing Arabic
I need to get rid of all these characters made by Shift + J whch may be different in size : ـ ــ ـــ ــــ ـــــ ــــــ ـــــــ ـــــــــ

I have a lot of data in Column A which is needed to be fixed properly
Hope it's clear

Thanks for quick reply
The code is 220

Can't find project or library
chr

I solved that error by removing missing reference
The problem now is that the code doesn't change anything at all.That's weird

Originally Posted by :) Sixthsense :)

Check missing references

Tools > References in the Visual Basic Environment Window.

I solved that part. The problem now is that nothing changed

I had to loop

Please Login or Register  to view this content.

use this formulathe name is in cell a1)
=SUBSTITUTE(A1,CHAR(220),"")

Thanks Mr. Salim Hasbia for your great formula ..
Simple and easy
But I still need to do that task by code and at the same time try to avoid loops

If Substitue function is working then

Please Login or Register  to view this content.

Mr. Jindon
That's perfect thanks a lot
Mr. Sixthsense
Thanks a lot for offering help. you helped me a lot with this topic.
As for last code didn't affect the range . I don't know why