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

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

—– べんりあつめ。—–

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

‘———————————————–
‘ シート毎の処理終了
‘>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
Next sht
End Sub