Select Spacific sheets...

Try it in this way...

Sub SelectSpecificSheets()
Dim s1 As String, s2 As String, s3 As String, Ws As Worksheet, sTemp As String

For Each Ws In ThisWorkbook.Sheets
    sTemp = UCase(Ws.Name)
    If sTemp Like "ALL*" Then s1 = sTemp
    If sTemp Like "OPEN*" Then s2 = sTemp
    If sTemp Like "OPS*" Then s3 = sTemp
Next Ws

If s1 <> "" Then ThisWorkbook.Sheets(s1).Select
If s2 <> "" Then ThisWorkbook.Sheets(s2).Select
If s3 <> "" Then ThisWorkbook.Sheets(s3).Select

End Sub

Sub a()
Dim arr(2)
For Each sh In Sheets
  If InStr("AllOpeOps", Left(sh.Name, 3)) > 0 Then
    arr(i) = sh.Name
    i = i + 1
  End If
Next
Sheets(arr).Select
End Sub