Sub SheetsSelected()
Dim shtArr() As String, sh As Worksheet
Dim i As Integer
i = 0
ReDim shtArr(ThisWorkbook.Worksheets.Count - 1)
For Each sh In Worksheets
If sh.Index > 2 Then
ReDim Preserve shtArr(i)
shtArr(i) = sh.Name
i = i + 1
End If
Next sh
Sheets((shtArr)).Select
End Sub
Sub SheetsSelectedPares()
Dim shtArr() As String, sh As Worksheet
Dim i As Integer
i = 0
For Each sh In Worksheets
If sh.Index Mod 2 = 0 Then
ReDim Preserve shtArr(i)
shtArr(i) = sh.Name
i = i + 1
End If
Next sh
Sheets((shtArr)).Select
End Sub