『VBA　ユーザー定義リストの削除』（ヒロ）
 Excel2000 WindowsXP

 いつもお世話になっております。
 VBAでソートを行っているのですが、その際、
 不定期に変更になるユーザー定義リストを使って並べ替えております。
 そのまま使っていくと、ユーザー定義リストがどんどん増えていってしまうので、
 標準で登録されているもの以外を、終了時に自動で削除するようなことはできますでしょうか？

 標準で登録されている並べ替えの定義リストは11あるので、
 11以降を全て消去したいのですが、探し方が悪いのでしょうか・・・
 いろいろ検索しても見つからないんです・・・どう探したらよいのでしょうか？

 w範囲 = "A2:A" & Worksheets("Sheet1").Cells(Rows.Count, "A").End(xlUp).Row
 On Error Resume Next
 Application.AddCustomList listarray:=Worksheets("Sheet1").Range(w範囲)
 On Error GoTo 0
 NN = Application.GetCustomListNum(Worksheets("Sheet1").Range(w範囲).Value) + 1

 ↑こんな感じで、どんどん登録されていきます。
 しかも、同じ範囲でも順番が入れ替わることもあり、増える一方なのです。

 イメージとしては、
 If ユーザー定義リストの件数 > 11 Then
    For リスト�� = ユーザー定義リストの件数 To 11 Step -1
       ユーザー定義リスト(リスト��) を削除 
    Next リスト��
 End If
 こんな感じなのでしょうか？

よろしくお願いします。

 
----
あ、すみません＞＜
やり方、見つかりました。
たぶん・・・・
やってみて、またわからなかったら、質問いたします。
（ヒロ）
----
ソートが完了するたびに、リストを削除することで解決しました。

 NN = Application.GetCustomListNum(Worksheets("Sheet1").Range(w範囲).Value)
 ソート処理
 Application.DeleteCustomList ListNum:=NN　　　　←これが探せなかった＞＜

 これにて解決です。
 お騒がせしましたm(_ _)m
 (ヒロ)