Удалить лист с его именем в определенной ячейке

[ольгаг]

Здравствуйте Уважаемые программисты!

Помогите пожалуйста найти ошибку в следующем коде (excel 2003):

Dim iSheetName As Variant
Dim iSheet As Variant
iSheetName = Range("A1").Value
Application.DisplayAlerts = False
For Each iSheet In Worksheets
If iSheet.Name = iSheetName Then iSheet.Delete
Next iSheet
Application.DisplayAlerts = True

Данный код должен удалить лист, в ячейке A1 которого есть имя этого листа. Т.е., например, нужно удалить лист с именем "Проба1", если в ячейке A1 данного листа есть значение "Проба1".
Заранее спасибо.

[VictorM]

А в чем проблема?
У меня работает, лист с именем Проба1 в ячейке A1 которого есть имя этого листа, удаляется.

Sub tt()
    Dim iSheetName As Variant
    Dim iSheet As Variant
    iSheetName = Range("A1").Value
    Application.DisplayAlerts = False
    For Each iSheet In Worksheets
        If iSheet.Name = iSheetName Then iSheet.Delete
    Next iSheet
    Application.DisplayAlerts = True
End Sub

Excel 2003

[ольгаг]

Да действительно код работает, но я не учла, что такой код не удаляет скрытые листы с параметром .Visible = xlVeryHidden.
Подскажите пожалуйста, как их удалить Может сначала сделать видимыми?
Спасибо.

[VictorM]

Конечно же, подобный код не сработает со скрытыми и защищёнными листами.
Соответственно, перед их удалением нужно принять меры.
Отобразите все листы перед началом выполнения кода, у Вас там все равно стоит Application.DisplayAlerts = False и пользователь ничего даже не заметит

[Hugo121]

Я думаю нужно было так:

Sub tt()
    Dim iSheet As Variant
    Application.DisplayAlerts = False
    For Each iSheet In Worksheets
        If iSheet.Name = iSheet.Range("A1").Value Then
        iSheet.Visible = -1
        iSheet.Delete
        End If
    Next iSheet
    Application.DisplayAlerts = True
End Sub

[ольгаг]

Спасибо большое все работает.