How to identify diacritics?

[LaurenJez]

Hello. I have a large Excel file that contains first and last names. Some of the names have special characters called diacritics, such as a tilde Ñ or ñ. Is there a way to easily scan the names to look for diacritics -- other than a basic search? The issue is that if I load the file to a process we have, the names do not get loaded because of an error, so I have to edit the names first before loading and I need a way to easily pull the impacted persons.

 

[lrobbo314]

Something like this...

LJ
	A	B	C
1	After VBA		Original
2	Alonso		Alonso
3	Alvarez		Álvarez
4	Blanco		Blanco
5	Castro		Castro
6	Delgado		Delgado
7	Diaz		Díaz
8	Dominguez		Domínguez
9	Fernandez		Fernández
10	Garcia		García
11	Gil		Gil
12	Gomez		Gómez
13	Gonzalez		González
14	Gutierrez		Gutiérrez
15	Hernandez		Hernández
16	Iglesias		Iglesias
17	Jimenez		Jiménez
18	Lopez		López
19	Martin		Martín
20	Martinez		Martínez
21	Molina		Molina
22	Morales		Morales
23	Moreno		Moreno
24	Munoz		Muñoz
25	Navarro		Navarro
26	Ortega		Ortega
27	Ortiz		Ortiz
28	Perez		Pérez
29	Ramirez		Ramírez
30	Ramos		Ramos
31	Rodriguez		Rodríguez
32	Romero		Romero
33	Rubio		Rubio
34	Ruiz		Ruiz
35	Sanchez		Sánchez
36	Sanz		Sanz
37	Serrano		Serrano
38	Suarez		Suárez
39	Torres		Torres
40	Vazquez		Vázquez
Sheet2

Sub DIARCITIC()
Dim DC() As Variant:    DC = Array("Á", "á", "É", "é", "Í", "í", "Ó", "ó", "Ú", "ú", "Ñ", "ñ")
Dim EN() As Variant:    EN = Array("A", "a", "E", "e", "I", "i", "O", "o", "U", "u", "N", "n")
Dim r As Range:         Set r = Range("A2:A" & Range("A" & Rows.Count).End(xlUp).Row)
Dim AR() As Variant:    AR = r.Value2

For i = 1 To UBound(AR)
    For j = 0 To UBound(DC)
        AR(i, 1) = Replace(AR(i, 1), DC(j), EN(j))
    Next j
Next i

r.Value2 = AR
End Sub