Snasui Excel Forum

Code: Select all

Sub select_sheet()
    Sheets(Array("W", "X", "Y", "Z")).Select
End Sub

Code: Select all

Sub select_sheet()
    Dim shs() As Variant
    Dim i As Integer, j As Integer
    For i = 2 To Sheets.Count
        ReDim Preserve shs(j)
        shs(j) = Worksheets(i).Name
        j = j + 1
    Next i
    Sheets(shs).Select
End Sub