こんにちは。。。 ずぅ〜っとソートで悩んでいます。。というのは RYUさんに教えていただいたように、プロパティの値を定数一覧で調べた数値に変えて以下の記述でデバッグしました。 Call Selection.Sort(xlsSheet.Range("D2"),1,1,1,False,1) ですが、Excelの関数式で間違いがあります。というようなエラーが 出ていました。そこで、以下の記述に直したところ、 Call Selection.Sort(xlsSheet.Range("D2"),1) うまくできました。ですが、１行目がタイトル行になりますので、 どうしてもHeaderプロパティでxlGuessを指定しないといけないのです。そこで以下の記述でデバッグしました。 ※｢xlGuess｣は１行目はタイトル行と指定 Dim xlGuess As Variant xlGuess = 1 Call Selection.Sort(xlSheet.Range("D2"),1,xlGuess) ですが、やっぱり関数式の間違いでエラーが出ました。(T-T) ちなみに以下の記述でも試しましたがやはり式が間違っているようです。 Call Selection.Sort(xlSheet.Range("D2"),1,1) 今度こそは何とか自分で。。と思ったのですが、やはりめげてしまいました。もう何十通りと試してみたのですが、どれもことごとくだめでせっかくオートフィルタができたのに。。またまた凹んでしまいました。 ヒントだけでも良いのでどなたかお知恵を拝借下さい〜。m(__)m