При запуске кода в Excel в режиме Debug(alt+F11), или из меню макросов(alt+F8) – работает бессбойно. То же самое при построчном воспроизведении кода.
Однако, если прикрепить код к плашке(Вставка -> Фигуры) и попытаться выполнить – происходит странное:
Несколько раз подряд макрос срабатывает штатно.
Через некоторое время код вешает Excel.
Запуск из меню макросов и из редактора VBA продолжает работать нормально.
Кнопка(плашка) может начать работать непредсказуемо.
Если удалить кнопку и создать новую, перепривязать к ней макрос – она будет срабатывать несколько раз опять до отказа.

Sub Новая_страница()

Dim Ws As Worksheet
Dim i As String

N = ActiveCell.Value
i = ActiveCell.Row

    Sheets("Содержание").Select
    Sheets("Адм").Visible = True
    Sheets("Адм").Select
    Sheets("Адм").Copy After:=Sheets(2)
    ActiveSheet.Name = N
    Sheets("Содержание").Cells(i, 2).Copy
    ActiveSheet.Paste Destination:=ActiveSheet.Cells(3, 1)
    
    Sheets("Содержание").Cells(i, 3).Copy
    ActiveSheet.Paste Destination:=ActiveSheet.Cells(3, 2)
    
    Sheets("Содержание").Cells(i, 4).Copy
    ActiveSheet.Paste Destination:=ActiveSheet.Cells(3, 3)
    
    Sheets("Содержание").Cells(i, 5).Copy
    ActiveSheet.Paste Destination:=ActiveSheet.Cells(3, 5)
    
    Sheets("Содержание").Cells(i, 6).Copy
    ActiveSheet.Paste Destination:=ActiveSheet.Cells(3, 6)
    
    Sheets("Содержание").Hyperlinks.Add Sheets("Содержание").Cells(i, 1), Address:="", SubAddress:="'" & N & "'!A1", TextToDisplay:=">"
        
    Sheets("Адм").Select
    ActiveWindow.SelectedSheets.Visible = False
    
    
End Sub

Перезагрузка, копирование и переименование книги не влияют на ситуацию.
Масштаб рабочего стола также не оказывает влияния(кому-то помогает)
enter image description here