Visual Basic For Applications Tips

ワークシートの列挙

ブックを指定したい場合は、Workbooks("ブック名").Sheets〜
アクティブなブックを指定したい場合は、ActiveWorkBook.Sheets〜
プロシジャが格納されているブックを指定したい場合、はThisWorkBook.Sheets〜

Sub SheetNameEnum1()
　　Dim i As Integer

　　For i = 1 To Sheets.Count
　　　　Debug.Print Sheets(i).Name
　　Next
End Sub

Sub SheetNameEnum2()
　　Dim wSheet As Variant

　　For Each wSheet In Sheets
　　　　Debug.Print wSheet.Name
　　Next
End Sub