Const Accent$ = "ÀÁÂÃÄÅàáâãäåÒÓÔÕÖØòóôõöøÈÉÊËèéêëÌÍÎÏìíîïÙÚÛÜùúûüÿÑñÇç"
Const noAccent$ = "AAAAAAaaaaaaOOOOOOooooooEEEEeeeeIIIIiiiiUUUUuuuuyNnCc"
Private Function sansAccents$(s$)
s = Application.Trim(s) 'SUPPRESPACE
Dim i%
For i = 1 To Len(Accent)
s = Replace(s, Mid(Accent, i, 1), Mid(noAccent, i, 1))
Next
sansAccents = s
End Function