�����V�[�g�̑I���i�z����g�p����j�bExcel VBA

�c�C�[�g

�����̃V�[�g�𓯎��ɑ��삷��ɂ́A�V�[�g����z��Ŏw�肵�܂��B
���̃T���v���́ASheet1�ASheet2�ASheet4��3���̃V�[�g��I�����܂��B

Sub Sample1()
    Sheets(Array("Sheet1", "Sheet2", "Sheet4")).Select
End Sub

Sample1�ł�Array�֐���p���ăV�[�g����z��Ƃ��Ďw�肵�Ă��܂����A�I������V�[�g�������܂��Ă��Ȃ��ꍇ�́A���̂悤�Ɏw�肷�邱�Ƃ͂ł��܂���B

���̏ꍇ�A�z��ł���΂悢�̂ł�����A�V�[�g����z��ϐ��Ɋi�[���Ă�����
Sheets(�z��) �Ƃ��邱�Ƃ��ł��܂��B
����Sample2�́A�u�b�N���ɂ���"����"�Ŏn�܂邷�ׂẴV�[�g���𓮓I�z��Ɋi�[���A�Ώۂ̃V�[�g�����ׂđI�����܂��B

Sub Sample2()
    Dim Sh As Worksheet
    Dim ArrayShName() As String
    Dim i As Long
    
    '���I�z���������
    ReDim ArrayShName(0) 
    
    For Each Sh In ThisWorkbook.Worksheets
        If Sh.Name Like "����*" Then
            '�z��̓��e��ێ������܂܃V�[�g����z��ɒlj�����
            ReDim Preserve ArrayShName(i)
            ArrayShName(i) = Sh.Name
            i = i + 1
        End If
    Next Sh
    
    '�w�肵�����O�̃V�[�g�����邩�m�F
    If ArrayShName(0) = "" Then Exit Sub
    
    '�V�[�g�����i�[�����z��ϐ����w�肵��Select
    Worksheets(ArrayShName).Select
End Sub