すべてのシートのフッターに同じ文字列をセットする方法

Excelで、すべてのシートのフッターに例えば「マル秘」という文字列をセットする場合のマクロは次の通りです。

ポイントは「For Each … In … Next」というステートメントを使うところです。
この方法はフッターやヘッダーのセット以外にも応用できます。

しかし、この程度のことならばマクロは必要ありません。
すべてのシートを複数選択した状態で、ページレイアウト-ページ設定-ヘッダー/フッタータブを選択、という手順(Excel2007の場合)でOKです。
これならばすべてのシートではなくセットしたいシートだけ選択して処理することができます。