Error Deleting Range Name In Kanji (Japanese) Language

I have users that submit a workbook quarterly. Many of the submissions contain name ranges that I need to remove. I wrote the below to delete the named ranges but encounter an error when the macro encounters a named range with the Kanji (Japanese) character set. How can I update this to delete these ranges as well?


Sub DeleteNamedRanges()
Dim ws As Worksheet
Dim NR As Name

On Error Goto ErrTrap

For Each ws In ActiveWorkbook.Worksheets
ws.Activate
For Each NR In ActiveWorkbook.Names
NR.Delete
Next
Next

ErrTrap:

If Err.Number = "1004" Then
Resume Next
End If

End Sub