It sounds like you want your InputBox to accept something like these examples:
- 1,2 (print/publish sheets 1 and 2)
- 1-4 (print/publish sheets 1 2 3 and 4)
- 1,2,8-10 (print/publish sheets 1 2 8 9 and 10)
If this is what you want, I can show you a cool macro to parse such input.
If you want something else, please describe it as clearly as possible.
By the way, CASE statements are "Case-sensitive". Sheet2 is probably the name of the worksheet and it will not match the option sheet2 as it appears in all lower-case.
I like to use
Select Case UCASE(ws.name)
Case "SHEET1", "SHEET2", "SHEET3"