ブック内のすべてのシートに対して、処理をする

ブック内のすべてのシートに対して、処理をする

Sub 複数シートでの項目名確認()
Dim i, sht
'全シートに対しての処理
For Each sht In Worksheets
sht.Select
'>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
' シート毎の処理実施開始
'-----------------------------------------------

----- べんりあつめ。-----

　■ここに、シートに必要な処理を入れる

'-----------------------------------------------
' シート毎の処理終了
'>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
Next sht
End Sub