都道府県を北から表示したい

連絡帳のような表があり、都道府県の列で並べ替えを行いたく以下のようなコードを作成しました。

 Call Range(Cells(11, 2), Cells(intB, 8)).Sort(Key1:=Range("B11"), Order1:=xlAscending, _
 CustomOrder:="北海道,青森県,岩手県,宮城県,秋田県,山形県,福島県,茨城県,栃木県,群馬県,埼玉県,千葉県,東京都,神奈川県,新潟県,富山県,石川県,福井県,山梨県,長野県,岐阜県,静岡県,愛知県,三重県,滋賀県,京都府,大阪府,兵庫県,奈良県,和歌山,鳥取県,島根県,岡山県,広島県,山口県,徳島県,香川県,愛媛県,高知県,福岡県,佐賀県,長崎県,熊本県,大分県,宮崎県,鹿児島県,沖縄県", _
 Header:=xlNo)

実行すると「名前付き因数が見つかりません」となります。
都道府県を北の順から並べ替えるため、「CustomOrder:=」で設定しました。

よろしくお願いします。

行動規範の内容に同意します

回答2件

ベストアンサー

並べ替えは、Sort メソッド（Excel 2003 以降）と Sort オブジェクト（Excel 2007 以降）があります。

提示のコードはSortメソッドですか、Sortメソッドには、CustomOrderという引数はないので当然、エラーになります。

Range.Sort メソッド (Excel) | Microsoft Docs

Sort オブジェクトのAdd2メソッドの引数にCustomOrderがあります。

vba
1    With ActiveSheet.Sort
2        .SortFields.Clear
3        .SortFields.Add2 Key:=Range("B11"), CustomOrder:="北海道,青森県,岩手県,・・・"
4        .SetRange Range(Cells(11, 2), Cells(intB, 8))
5        .Header = xlNo
6        .Apply
7    End With