複数シートでしょう可能なマクロ作成法

　マクロ初心者です。お教えください。 　マクロを用いてデータ処理を行っています。１月のシートを用いてマクロ作成をすると、プログラムの　途中ですが以下のようになります。 　 　Application.CutCopyMode = False ActiveWorkbook.Worksheets("１月").Sort.SortFields.Clear ActiveWorkbook.Worksheets("１月").Sort.SortFields.Add Key:=Range("R13"), _ SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal With ActiveWorkbook.Worksheets("１月").Sort 　この１月限定部分を変更して１２ヶ月のいずれの月でも使用可能にしたいのですが、 　どのように変更すべきかお教えください。 　よろしくご教授ください。