VBA 対象シートの選択方法

質問

ブック内のシートで対象のシートを選択する方法をモーグ内の
特定の文字が含まれているシート名が付けられたシートをすべて選択状態にする
のコードを参考に下記のようなコードを作成しました

Dim myWS As Worksheet

For Each myWS In Worksheets
If Not myWS.Name Like "*店*" Then
If Not ActiveSheet.Name Like "*店*" Then
myWS.Select (False)
Else
myWS.Select
End If
End If
Next

この選択されたシートから、最初のシート（マクロのコマンドボタンを配置する予定のシート）を除外する為にはコードをどのように作成すれば良いのでしょうか？

具体的にはブック内のコマンドボタンを配置するシート（Sheet1）とシート名に 「店」の文字が含まれないシート全てを選択した状態にしたいのです

よろしくお願い致します

回答No.1

oboroxx · ベストアンサー

コマンドボタンを配置するシート名が「Sheet1」であるならば、
Dim myWS As Worksheet

For Each myWS In Worksheets
If Not myWS.Name Like "*店*" AND Not myWS.Name = "Sheet1" Then
myWS.Select (False)
Else
myWS.Select
End If
Next

お礼

教えて頂いたコードで希望の事が出来るようになりました
どうもありがとうございました

最初に回答して頂きましたので、BAにさせていただきます

回答No.2

kkkkkm

シート名がSheet1でしたら
If Not ActiveSheet.Name Like "*店*" And ActiveSheet.Name <> "Sheet1" Then

最初のシートが左端のシートの意味でしたら
If Not ActiveSheet.Name Like "*店*" And ActiveSheet.Name <> Sheets(1).Name Then

でいけると思います。

お礼

教えて頂いたコードで希望の事が出来るようになりました
どうもありがとうございました