Сотни теневых листов в Excel, ошибка при попытке удаления

Question

Посмотрел кодирование VBA и запустил макрос и получил ошибку.
Использовал этот код:

Sub Unhide_All_Sheets()
    Dim ws As Worksheet

    ActiveWorkbook.Unprotect
    For Each ws In Worksheets
        ws.Visible = xlSheetVisible
    Next
End Sub

Получено:

ОЖИДАЕТСЯ ОШИБКА КОМПЛЕКТАЦИИ: РАЗДЕЛИТЕЛЬ СПИСКА ИЛИ)