Требовать от пользователя включения макросов

Question

Я создал лист приветствия, в котором говорится, что макросы должны быть включены

Если макросы включены, лист приветствия скрыт, если макросы отключены, все листы скрыты, кроме «Добро пожаловать»

Это код, который у меня есть, он запускается при открытии файла, но при закрытии выдает ошибку

Я установил модуль в ThisWorkbook

Private Sub Workbook_Open()
    Dim Current As Worksheet
    For Each Current In Worksheets
         Current.Visible = xlSheetVisible
    Next Current
    Worksheets("welcome").Visible = xlSheetVeryHidden
    End Sub


'=========   
    Private Sub Workbook_BeforeClose(Cancel As Boolean)
        Dim Current As Worksheet
        For Each Current In Worksheets
            If Current.Name <> "welcome" Then
                Current.Visible = xlSheetVeryHidden
            End If
        Next Current
    End Sub

Может ли кто-нибудь помочь мне определить ошибку?