Macro to delete names - Run-time error '1004', The syntax of this name isn't correct

I'm having issues with this macro to delete names in the workbook.
It used to work with Excel 2007 but not with the 365 version.

Sub Del_Names()
    Dim NameToDelete As Name
    For Each NameToDelete In Application.ActiveWorkbook.Names
        If Right(NameToDelete.Name, 12) <> "Print_Titles" Then
            NameToDelete.Delete
        End If
    Next NameToDelete
End Sub

Capture.PNG