【Excel2010マクロ】シート名を固定したくな

質問

マクロには全然詳しくないので、マクロの記録を利用して下記のようなデータの並び替えのマクロを作成したのですが、sheet名が「Sheet2」(大文字小文字区別無し)じゃないとマクロが動きません。

--------------------
Sub 並び替え()
'
' 並び替え Macro
'

'
Columns("A:A").Select
Columns("A:AR").Select
With ActiveWorkbook.Worksheets("Sheet2").Sort
.SortFields.Clear
.SortFields.Add Key:=Range("AN:AN"), Order:=xlAscending, DataOption:=xlSortNormal
.SortFields.Add Key:=Range("AC:AC"), Order:=xlAscending, DataOption:=xlSortNormal
.SortFields.Add Key:=Range("AD:AD"), Order:=xlAscending, DataOption:=xlSortNormal
.SortFields.Add Key:=Range("AF:AF"), Order:=xlAscending, DataOption:=xlSortNormal
.SortFields.Add Key:=Range("AG:AG"), Order:=xlAscending, DataOption:=xlSortNormal
.SortFields.Add Key:=Range("AH:AH"), Order:=xlAscending, DataOption:=xlSortNormal
.SortFields.Add Key:=Range("AJ:AJ"), Order:=xlAscending, DataOption:=xlSortNormal
.SortFields.Add Key:=Range("AK:AK"), Order:=xlAscending, DataOption:=xlSortNormal
.SortFields.Add Key:=Range("AN:AN"), Order:=xlAscending, DataOption:=xlSortNormal
.SetRange Range("A:AR")
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
End Sub
--------------------

マクロを実行するsheet名は都度変わりますので、sheet名を固定しなくてもデータを並び替えられるようにするには、どのようにしたらよろしいのでしょうか？

回答No.1

f272 · ベストアンサー

With ActiveWorkbook.Worksheets("Sheet2").Sort
を
With ActiveWorkbook.ActiveSheet.Sort
にするのではどうでしょう。

ついでに
.SortFields.Add Key:=Range("AN:AN"), Order:=xlAscending,
が2回出てくるのはどうして？
それから
Columns("A:A").Select
Columns("A:AR").Select
のようにセルを選択する意味はないはずです。

お礼

ご回答ありがとうございました。

このマクロは、他の人が作成したマクロを実行する前にデータの並び替えをしたくて作成しました。
そのマクロの一番上に貼り付けて実行したところ、エラー無く最後までマクロが動きました。これで手間を省くことができました。

>.SortFields.Add Key:=Range("AN:AN"), Order:=xlAscending,が2回出てくるのはどうして？
ご指摘ありがとうございました。全然気づきませんでした。
最初はN・C・Dの3列でマクロの記録を実行したのですが、編集画面でF以降を増やした際に余分にコピーしてしまったようです。

本当に助かりました。ありがとうございました。