Как скрыть листы в книге Excel на основе названий вкладок в таблице

Question

У меня есть таблица под названием «HideSheets» (один столбец), к которой листы добавляются или иногда удаляются. Как ссылаться на таблицу в

Sub HideSheets() 
    Dim cell As Range 
    On Error Resume Next 
    For Each cell In Sheets("Index").Range("HideSheets") 
     ' Hide sheets 
     Sheets(cell.Value).Visible = False 

End Sub 

Answer 1

For Each также должны иметь Next команду

Sub HideSheets() 
    Dim r As Range 
    On Error Resume Next 
    For Each r In Sheets("Index").Range("HideSheets") 
     ' Hide sheets 
     Sheets(r.Value).Visible = xlSheetHidden 
    Next r 
End Sub 

Вместо использования On Error Resume Next, проверьте условия, которые могут привести к ошибке и иметь дело с ними соответствующим образом. Например, возвращает ошибку пользователя, который объясняет, что следующее сообщение об ошибке (ы) имело место:

1. Пользователя попытался скрыть всех листов в книге
2. r.Value не является допустимым именем листа.