Sub VUZ()
     Dim bFirst As Boolean
     Dim wks As Worksheet
      
     For Each wks In Worksheets
         If wks.Range("A1").Value = "Факультет" Then
             wks.Select Not bFirst
             If Not bFirst Then bFirst = True
         End If
     Next wks
End Sub

Sub Автофигура3_Щелкнуть()    ' Получить список листов для перемещения
     ReDim GroupName(1 To 1)
     For twhb = 1 To ThisWorkbook.Sheets.Count
         If Right(Sheets(twhb).Name, 1) = "р" Then
             n = n + 1: ReDim Preserve GroupName(1 To n)
             GroupName(n) = Sheets(twhb).Name
         End If
     Next twhb
     Sheets(GroupName).Select
End Sub

Sub Вариант2() ' Получить список листов для перемещения
     Dim sh As Worksheet: ReDim GroupName(1 To 1)
     For Each sh In ThisWorkbook.Worksheets
         If sh.Name Like "*р" Then n = n + 1: ReDim Preserve GroupName(1 To n): GroupName(n) = sh.Name
     Next sh
     On Error Resume Next: Sheets(GroupName).Select
End Sub

If InStr(1, "Rioran", "ra") Then
     MsgBox 1
Else
     MsgBox 0
End If

wks.Select Not bFirst
If Not bFirst Then bFirst = True

If wks.Range("A1").Value like "*культет" Then