There are 2 input boxes to capture the Type and number of sheets.
This code ends with a message box for you to verify that the selections are correct based on user input.
It changes nothing in the workbook and so you can run it anywhere.
If all is well, we can then bolt on the code allowing the user to click through his selection of sheets.
To test that the first sheet being selected is correct, remove the apostrophe at the beginning of line
'Sheets(SheetCode & "0").Activate
and run it a few times with different selections against the file containing all 50 worksheets.
Sub NextSheet3()
Dim i As Integer
Dim SheetCode As String, ChosenLetter As String, ChosenSheets As Integer
ChosenLetter = InputBox("Enter A or B or C or D or E", "Select Letter Type", "A")
ChosenLetter = UCase(ChosenLetter)
ChosenSheets = InputBox("Enter a number between 1 and 10", "How many visible sheets", "1")
Select Case ChosenLetter
Case "A"
SheetCode = "BC-AA-"
Case "B"
SheetCode = "BC-RE-"
Case "C"
SheetCode = "BC-CASL-"
Case "D"
SheetCode = "BC-VC-"
Case "E"
SheetCode = "BC-KS-"
End Select
MsgBox "You selected" & vbNewLine & "Type" & ChosenLetter & vbNewLine _
& ChosenSheets & " sheets" & _
vbNewLine & "from " & SheetCode & "0" & " to " & SheetCode & ChosenSheets - 1
'Sheets(SheetCode & "0").Activate
End Sub