Remove symbols

[Panoos64]

Hi all, I would like to remove symbols ~-* in col. "A" using VBA as my below extract. Sch. 1 shows the original data and sch. 2 is the expected result. Thanking you in advance

~101004-~101004 **Undefined**

~101005-~101005 **Undefined**

~10102-~10102 **Undefined**

<colgroup><col style="mso-width-source:userset;mso-width-alt:10678;width:219pt" width="292"> </colgroup><tbody>
[TD="width: 292"]
Schedule 1.
~101003-~101003 **Undefined**
[/TD]

</tbody>

Schedule 2.

101004 101004 Undefined

101005 101005 Undefined

10102 10102 Undefined

<tbody>
[TD="width: 292"]101003 101003 Undefined
[/TD]

</tbody>

 

[FormR]

Hi, here is one option you can try:

With Intersect(Columns("A"), ActiveSheet.UsedRange)
    .Replace What:="~~", Replacement:="", LookAt:=xlPart, SearchFormat:=False, ReplaceFormat:=False
    .Replace What:="~*", Replacement:="", LookAt:=xlPart, SearchFormat:=False, ReplaceFormat:=False
    .Replace What:="-", Replacement:=" ", LookAt:=xlPart, SearchFormat:=False, ReplaceFormat:=False
End With

 

[Panoos64]

Many thanks Form, it works perfect! Thanks also for your time spent for my project. Have a great lovely day!