Удалить лист с гиперссылками

[Юлия О]

Добрый день!
Необходимо удалить из документа Excel лист, содержащий гиперссылки(их очень много более 1,5 тыс). Каждая из этих ссылок указывает на отдельный лист в этом же документе. Все эти листы тоже необходимо удалить(а их соответственно тоже 1,5 тыс штук). Подскажите, пожалуйста, как можно автоматизировать этот процесс.

[Казанский]

Сколько же там всего листов в книге?

Sub Юлия_О()
Dim h As Hyperlink
Application.DisplayAlerts = False
On Error Resume Next
For Each h In ActiveSheet.Hyperlinks
    Range(h.SubAddress).Parent.Delete
Next
ActiveSheet.Delete
Application.DisplayAlerts = True
End Sub

[Юлия О]

Спасибо Вам огромное!

P.S. Листов в книге очень много. Книга весит более 100 Мб.....