VBAのSelectionプロパティについて。

質問

単語を分類するプロシージャを作成しています。
ソースは下記の通りです。

Private Sub Distribute()
Dim NumRows(100) As Long 'wsRDの行列　インデックス番号は列を示す
Dim NumColumns As Long 'wsRDの行列
Dim Flag As Boolean '品詞が存在するかを示すフラグ
Dim fName As String 'ファイル名
Dim Row As Long 'wsRDの行
Dim Word As Long 'wsのキーワード

＜＜中略＞＞

'読み込まれたファイルのワークシート１のアドレスを代入
'//列Aから列Fの範囲にについて情報をキーとして昇順に並べ替え開始
wsData.Columns("A:F").Select '範囲指定
Selection.Sort Key1:=Range("D1"), Order1:=xlAscending, Header:=xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, SortMethod:=xlPinYin, DataOption1:=xlSortNormal
'//列Akara列Fの範囲にについて情報をキーとして昇順に並べ替え終了

＜＜中略＞＞

End Sub

Selection.Sort Key1の部分でエラーが出てきてしまいます(エラー1004：アプリケーション定義またはオブジェクト定義エラー)。
今現在、Exsel２０００を使用しているのですが、プログラムを書く際は２００２の本を参照しています。そのためバージョンが違う所為かとも思っているのですが・・・。
もしわかる方がいたら教えてください。

回答No.1

FlossenEngel · ベストアンサー

Excel2000のヘルプ（VBAヘルプ）を見れば、SortメソッドにDataOption1は無いということがわかります。

Excel2002のSort Method
http://msdn.microsoft.com/library/default.asp?url=/library/en-us/vbaxl11/html/xlmthSort1_HV03076391.asp

お礼

ありがとうございます。解決しました。