I have a macro that finds and replaces certain characters in my spreadsheets (double quotes to single quotes; accented characters to their unaccented equivalents). However there are Polish and Lithuanian accented characters that VBA can't find. For example, I would like to replace the Polish uppercase Ą (Latin A with an Ogonek, UTF-8 character decimal 260). I tried coding this as ChrW(U+260) in my findlist, but that didn't work. If someone can show me how to code it in the findlist, I can do the other characters I need. Here is my macro (Just for illustration, at the end I have added finding A and replacing it with ChrW(U+260). This works as expected, but is the reverse of what I need.):

Sub RemoveSomeProhibitedCharacters()
'PURPOSE: Find & Replace a list of prohibited characters throughout entire workbook
'Includes quotes, umlauts, esszett, Lith S and Z

Dim sht As Worksheet
Dim fndList As Variant
Dim rplcList As Variant
Dim x As Long

fndList = Array("""", "''", "Ä", "ä", "Ö", "ö", "Ü", "ü", "ß", "Š", "š", "Ž", "ž", "A")
rplcList = Array("''", "'", "A", "a", "O", "o", "U", "u", "ss", "S", "s", "Z", "z", ChrW(U + 260))

'Loop through each item in Array lists
For x = LBound(fndList) To UBound(fndList)
'Loop through each worksheet in ActiveWorkbook
For Each sht In ActiveWorkbook.Worksheets
sht.Cells.Replace What:=fndList(x), Replacement:=rplcList(x), _
LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase:=False, _
SearchFormat:=False, ReplaceFormat:=False
Next sht

Next x

End Sub