Matt
02/26/2020, 2:32 PMShannan Brown
02/26/2020, 2:34 PMGregory Jones
02/26/2020, 2:35 PMMatt
02/26/2020, 2:35 PMMatt
02/26/2020, 2:36 PMShannan Brown
02/26/2020, 2:46 PMGregory Jones
02/26/2020, 2:46 PMSub ReplaceAccentedChar()
Const sFm As String = "ŠŽšžŸÀÁÂÃÄÅÇÈÉÊËÌÍÎÏÐÑÒÓÔÕÖÙÚÛÜÝàáâãäåçèéêëìíîïðñòóôõöùúûüýÿ"
Const sTo As String = "SZszYAAAAAACEEEEIIIIDNOOOOOUUUUYaaaaaaceeeeiiiidnooooouuuuyy"
Dim i As Long, ws As Worksheet
For Each ws In ThisWorkbook.Worksheets
For i = 1 To Len(sFm)
ws.Cells.Replace Mid(sFm, i, 1), Mid(sTo, i, 1), LookAt:=xlPart, MatchCase:=True
Next i
Next ws
End Sub
Gregory Jones
02/26/2020, 2:47 PMGregory Jones
02/26/2020, 2:48 PM