特定の文字が含まれているシート名が付けられたシートをすべて選択状態にする

Sub Sample()

    Dim myWS As Worksheet

    MsgBox "「MOUG」が含まれるシートをすべて選択します"
   
    For Each myWS In Worksheets
        If myWS.Name Like "*MOUG*" Then
            If ActiveSheet.Name Like "*MOUG*" Then
                myWS.Select (False)
            Else
                myWS.Select
            End If
        End If
    Next

End Sub