Здравствуйте, Sulla, Вы писали:
S>case наверное
case — это что вы имели ввиду..?

S>

S> if checkbox1.Value=true then
S>For Each sh In Sheets
S>sh.Visible = False
S>Next sh
S>Application.Sheets("sheet1").Visible = True
S>Application.Sheets("sheet1").Activate
S>end if   
S>

а можно каким нить образом на листы и в том числе на ячейки навешать атрибуты, или что то вроде того, по которым в дальнейшем смотреть и в цикле дизаблить с одним отрибутом, а показывть с другим..??