Страницы: 1
RSS
Сообщение при копировании листа "Имя уже существует"
 
Доброго времени суток, уважаемые знатоки!
Подскажите пожалуйста кто-нибудь сталкивался с проблемой, когда при копировании листа появляется сообщение о том, что имя "такое-то" уже существует (скрин во вложении)?
И при копировании одного листа он выдает более 50 таких сообщений (после 50го со счета сбилась). Т.е. нужно сидеть и просто жать кнопку "да" до умопомрачения :)
При этом в диспетчере имен я этого не вижу, никаких пользовательских форматов в книге нет. Есть только банальные таблички, сводники (вернее olap) и срезы. И вот такая беда. Подскажите, пожалуйста, с чем может быть связанно?
Спасибо!
 
Код
Sub DeleteHiddenNames()
    Dim n As Name
    Dim Count As Integer
    On Error Resume Next
    For Each n In ActiveWorkbook.Names
        If Not n.Visible Then
            n.Delete
            Count = Count + 1
        End If
    Next n
    MsgBox "Скрытые имена в количестве " & Count & " удалены"
End Sub
Я сам - дурнее всякого примера! ...
 
Сработало! Спасибо огромное!
 
Просто в диспетчере имен удаляешьте все имена с ошибками. У меня так получается. Удаляешьте из исходного файла и из конечного
 
В том то и дело, что их в диспетчере имен не видно. Решение kuklp помогло :)  
Страницы: 1
Наверх