Public Sub VisSheets(bMetka As Boolean)
    Dim sh As Worksheet

    For Each sh In ThisWorkbook.Worksheets
        If sh.Name <> "Лист1" And sh.Name <> "Лист22" Then
            If bMetka Then sh.Visible = True Else sh.Visible = False
        End If
    Next
End Sub

Sub tt()
    Dim iRnd As Integer
    Dim i As Byte
    Dim nUni As New Collection

    VisSheets False
    Randomize
    On Error Resume Next
    Do
        iRnd = CInt(Int((21 * Rnd()) + 2))
        nUni.Add CStr(iRnd), CStr(iRnd)
    Loop Until nUni.Count = 5
    On Error GoTo 0

    For i = 1 To 5
        Sheets(CInt(nUni(i))).Visible = True
    Next
End Sub

Sub test()
Sheets(1).Select
vop_1 = "": vop_2 = "": vop_3 = "": vop_4 = "": vop_5 = ""
For w = 2 To 22
Sheets(w).Visible = 2
Next
For i = 1 To 5
nn:
x = Random
If x = vop_1 Then GoTo nn
If x = vop_2 Then GoTo nn
If x = vop_3 Then GoTo nn
If x = vop_4 Then GoTo nn
If x = vop_5 Then GoTo nn
If vop_1 = "" Then vop_1 = x
If x = vop_1 Then GoTo mm
If vop_2 = "" Then vop_2 = x
If x = vop_2 Then GoTo mm
If vop_3 = "" Then vop_3 = x
If x = vop_3 Then GoTo mm
If vop_4 = "" Then vop_4 = x
If x = vop_4 Then GoTo mm
If vop_5 = "" Then vop_5 = x
If x = vop_5 Then GoTo mm
mm:
Sheets(x).Visible = -1
'MsgBox "Лист открыт под номером" & x
Next
Sheets(22).Visible = -1
End Sub