非表示シートがあるときの複数シート一括処理

結論  コレクション作ってループ

sub CommandToSheets()

Dim mySheetsNames as Collection

Set mySheetsNames = New Collection

‘まとめて扱うシート名をコレクションに追加

With  mySheetsNames

  .Add “Sheet5”

  .Add “sheet6”

End with

Dim mySheetName as Object ‘オブジェクト型かバリアント型でないとエラー

For Each mySheetName in mySheetsNames

   ‘複数シート一括処理

   Thisworkbook.sheets(mySheetName).メソッド

Next mySheetName

End sub