Thanks a lot MrShorty for reply
I tried that function and it worked for the example provided
Function FnReplace(S As Range) As String
Dim O, R, N As Long, T As String
T = S.Value
O = Array("َ", "ْ", "ً")
R = Array("", "", "")
For N = LBound(O) To UBound(O)
FnReplace = Replace(T, O(N), R(N)): T = FnReplace
Next N
FnReplace = T
End Function
And it worked well .. but in fact I can't store those special characters in an array as those special characters are much
Can you have a look at the Unicode table to do that if possible?
Bookmarks