Excel VBAのすべてのシートで同じ範囲を選択するにはどうすればよいですか？

Question

以下のコードを使用して、選択した範囲のシートを自動ズームします。しかし、私は追加シートがたくさんあるので、どのように名前を書くのではなく、すべてのシートにこのコードを使用することができます。

よろしくお願いいたします。

コード：

Sub Workbook_Open() 
Sheets("Configuration").Activate 
Range("A1:AA1").Select 
ActiveWindow.Zoom = True 
Range("A1").Select 
End Sub 

Answer 1

これを試してみてください：

Sub Workbook_Open() 
    For Each wrkSht In ThisWorkbook.Sheets 
     wrkSht.Activate 
     Range("A1:AA1").Select 
     ActiveWindow.Zoom = True 
     Range("A1").Select 
    Next 
End Sub 

Answer 2

あなたはすべてのシートスルーループをすることができます。

for each sht in workbooks(your workbook) 
    Your code here 
next sht 

Answer 3

あなたは範囲やシート、その後、ズームを選択することができます（これはまだ自分の名前を必要としますが、ない個別処理）

Sub Test() 
    Sheets("Sheet1").Activate 
    ActiveSheet.Range("A1:AA1").Select 
    Sheets(Array("Sheet1", "Sheet2", "Sheet3")).Select 
    ActiveWindow.Zoom = True 
    Sheets("Sheet1").Select 'removed the selection/grouping 
End Sub 

を

を、それは、シートのすべてが、その後の場合3番目のステートメントとしてWorksheets.Selectを使用できます。