VBAでのエラー（新しいマクロの記録）

質問

新しいマクロの記録で、work1にてソート等を行って、
新しいマクロ（ソート等）を作成しました。

このマクロは単体で正常に動作するのですが、
sheet1の別のマクロにカット＆ペーストで追加し、
動作させたところエラーになってしまいました。
パス的な問題だと思いますが、いまいち理解できません。

以下、ソートの中身
Sheets("work1").Select
Columns("A:H").Select
Selection.Sort Key1:=Range("B2"), Order1:=xlAscending, Key2:=Range("C2") _
, Order2:=xlAscending, Key3:=Range("F2"), Order3:=xlAscending, Header:= _
xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
SortMethod:=xlPinYin, DataOption1:=xlSortNormal, DataOption2:= _
xlSortNormal, DataOption3:=xlSortNormal

回答No.2

papayuka

引数の DataOption はExcel2000には無いので、お使いのExcelはもっと新しいバージョンなのでしょう。

このマクロ単独でエラーが出るとすると、シート名「work1」がアクティブなワークブック内に無いとかくらいしか思いつきません。

別のマクロの間に入れたのなら、前後処理が解からないとなんとも言えないと思います。

どんなエラーかも不明だし。

回答No.1

laputart

マクロで生成されたVBAですね。
実際エラーになりました。
で以下の用に　DataOption1 以下を削除したら
エラーはなくなりましたが、何が原因か分かりません。

Selection.Sort Key1:=Range("B2"), Order1:=xlAscending, Key2:=Range("C2") _
, Order2:=xlAscending, Key3:=Range("F2"), Order3:=xlAscending, Header:= _
xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
SortMethod:=xlPinYin　<--これ以下を削除