Показать/скрыть несколько листов

[hamlook]

Здравствуйте!
Для работы макроса снимаю скрытие листа, использую код
Sheets("Лист 2").Visible = -1

при закрытии книги
Sheets("Лист 2").Visible = 2

как данную процедуру использовать для нескольких листов (с 2 по 10)?

[Aleksandr H.]

dim i as integer
for i = 2 to 10 
Sheets("Лист " & i).Visible = -1
next i

for i = 10 to 2 step -1
Sheets("Лист " & i).Visible = 2
next i

[hamlook]

Спасибо. Но листы у меня переименованы и идут не по порядку. (хотя можно и переименовать их под этот код)

[Aleksandr H.]

dim i as integer
for i = 2 to 10 
Sheets(i).Visible = -1
next i

for i = 10 to 2 step -1
Sheets(i).Visible = 2
next i

[hamlook]

Спасибо!