Здравствуйте, Flap, Вы писали:

F>Мне интересен подхот к этой задаче. Как это все более грамотно разрулить с точки зрение организаци такого приложения.?

case наверное, а листы, которые не должны быть видны можно с помощью свойств листов делать невидимыми или с помощью ифоф

например так :

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