＞別のシートにコピーすると印刷はされますが、並べ替えがされずに印刷だけされます。
「ActiveWorkbook.Worksheets("Sheet1").」とシート名が指定されているのが原因でしょう。
この名前のシートはブックの中で一つしかありませんから、別の名前のシートに対しては機能しません。
シート名をしている部分を「ActiveWorkbook.ActiveSheet.」に書き換えると、シートがアクティブになっていれば一つのマクロで機能します。
＞同じ表を３０枚作成し
ブック内の全てのシートに適用するなら下記のようにループを使うと一括処理できます。
除外シートがあるならｉｆ文で名前をチェックすれば良いでしょう。
Dim ws As Worksheet
For Each ws In Worksheets
'処理
ws.Sort.SortFields.Clear
:
Next
質問者
補足
いつもありがとうございます。すみませんもう一つ教えてください。
ブック内の全てのシートに適用するなら下記のようにループを使うと一括処理できます。
除外シートがあるならｉｆ文で名前をチェックすれば良いでしょう。
Dim ws As Worksheet
For Each ws In Worksheets
'処理
ws.Sort.SortFields.Clear
:
Next
とありますが 私のマクロのどこに挿入すればいいのでしょうか。
これが出来れば大変助かります。」よろしくお願いいたします
補足
いつもありがとうございます。すみませんもう一つ教えてください。 ブック内の全てのシートに適用するなら下記のようにループを使うと一括処理できます。 除外シートがあるならｉｆ文で名前をチェックすれば良いでしょう。 Dim ws As Worksheet For Each ws In Worksheets '処理 ws.Sort.SortFields.Clear : Next とありますが 私のマクロのどこに挿入すればいいのでしょうか。 これが出来れば大変助かります。」よろしくお願いいたします