多くのシートがあり、同じ作業を全シートに行うとなると・・・マクロの出番です。シートの指定方法は、Worksheets("シート名")Worksheets(インデックス)ActiveSheetこの3通りを紹介しました。先頭シートが、1最終シートが、Worksheets.Countになります。そこで、Forを使って1〜1Worksheets.Countまで処理するようにします。全シートの「印刷の向き」を「横」に設定します。xlLandscapeOrientationが印刷の向きを指定するプロパティです。xlLandscape:横xlPortrait:縦ページ設定は、非常に多くのプロパティがあります。マクロの記録を有効に使って調べて下さい。用紙サイズの指定を、マクロの記録で調べて実際にマクロVBAを書いてみましょう。全てのシートに同じ処理をするとは限りません。特定のシート、例えば特定の文字を含んでいるシートにだけ処理をしたい場合もあります。シート名に"横"と入っているシートだけ「印刷の向き」を「横」に設定します。※InStr関数についてInStrは、第2引数の文字が第1引数の文字の中で何番目に登場するかを返すVBA関数です。第2引数の文字が第1引数の文字の中に無い場合は0を返します。第2引数の文字が第1引数の文字の中にある場合になります。InStr関数はマクロVBAでは頻繁に使います。実際に書いて、動作(戻り値)を確認し良く理解してください。シートに対する普通の処理の繰り返しの場合はこれで良いのですが、シートの挿入・削除を繰り返し行う場合は一工夫必要です。Worksheets.CountこのForは、最初にこのForを実行した時点のシート数です。繰り返し処理の中でシート数が変わってしまうと正しく動きません。3という事になります。ループの中でシートを削除してしまうと、i=3になった時に3番目のシートは無くなっているのでエラーになります。これに対処するには、シートの前からではなく、後ろから処理するようにします。シート名に"削除"と入っていたらシートを削除する。-1それぞれで、変数iの動きと、その時点でのシート数を確認しつつ、ステップイン実行してみましょう。全てのシートに同じ事をする(For〜Worksheets.Count)このサイトがお役に立ちましたら「シェア」「Bookmark」をお願いいたします。間違いやご指摘がありましたら、「お問い合わせ」からお知らせいただけると幸いです。掲載のVBAコードは自己責任で使ってください。万一データ破損等の損害が発生しても責任は負いません。