VBAで指定シート以外の選択

お世話になっております。
VBAで指定セル以外を選択したいのですがどの様にプログラムを
構成すればよろしいのでしょうか？
全てのシートを選択のプログラムは「Worksheets.Select」ですが
例えばsheet1、sheet2、「勤務表」以外のシートを選択状態にしたいのです。
ご教示をお願い致します。

No.1 ベストアンサー 回答者： bonaron 回答日時： 2017/07/25 16:49

こんな感じで。

Sub Sample()
　　Dim ShName As String
　　Dim i As Long
　　Dim ara As Variant

　　For i = 1 To Sheets.Count
　　　　Select Case Sheets(i).Name
　　　　　　Case "Sheet1", "Sheet2", "勤務表"
　　　　　　Case Else
　　　　　　　　ShName = ShName & "*" & Sheets(i).Name
　　　　End Select
　　Next
　　ShName = Mid(ShName, 2)

　　If ShName <> "" Then
　　　　ara = Split(ShName, "*")
　　　　Sheets(ara).Select
　　Else
　　　　MsgBox "選択できません"
　　End If
End Sub

この回答へのお礼

bonaron様ありがとうございます！
出来ました。
勉強と活用させていただきます。
またこちらにお世話になる事あると思いますが
その際はよろしくお願い致します。

お礼日時：2017/07/25 22:36