راهکارهايي نسبي براي رفع مشکل حرف ي فارسي

[ali.alavi]

در جستجوهام به یک کد طلائی برخوردم که مشکل رو کاملاً حل می کنه

    Dim ws As Worksheet
    
    For Each ws In Worksheets
       
        ws.Name = Replace(ws.Name, ChrW(1610), ChrW(1740), vbTextCompare)
        ws.Name = Replace(ws.Name, ChrW(1603), ChrW(1705), vbTextCompare)
    Next ws
         
        
    Cells.Replace What:=ChrW(1610), Replacement:=ChrW(1740), LookAt:=xlPart, SearchOrder _
        :=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
    Cells.Replace What:=ChrW(1603), Replacement:=ChrW(1705), LookAt:=xlPart, SearchOrder _
        :=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False