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

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

Can't find project or library
chr

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

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

I had to loop

 For x = 1 To LastRowCon
            Cells(x, 1) = Replace(Cells(x, 1), Chr(220), "")
        Next x

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

If Substitue function is working then

    With Range("a1", Range("a" & Rows.Count).End(xlUp))
        .Value = Application.Substitute(.Cells, Chr(220), "")
    End With

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