連動するプルダウンの作成について

Question

VBA初心者です。ご教示いただければ幸いです。

下記サイトを参考に別シートにリストを作成し、連動するプルダウンを作成しました。

リンク内容

うまく作成できたのですが、リスト名の前にコードを入れたいとの要望があった為、"コード"　＆"　　"＆"県名"としたところ二つ目のプルダウンが作動しなくなりました。

開いたときに実行時エラー1004の定義のエラーが出たので何かセルの設定が間違っているのかなと思い色々調べてみたのですが解決に至っておりません。

何卒宜しくお願い致します。

    With Sheets!シミュ.Range("E2").Validation
        .Delete
        .Add Type:=xlValidateList, Formula1:="=都道府県"
    End With
    
    
    With Sheets!シミュ.Range("E4").Validation
        .Delete
        .Add Type:=xlValidateList, Formula1:="=if(E2 ="""",E2,indirect(E2))"
    End With
        
End Sub

Answer 1

色々ネットで見てみたところ、名前の管理ではスペースがダメなようでした。

アンダーバーで対応してみようと思います。

お騒がせ致しました。

Comments

[m.ts10806]

「県名」と扱っている情報は明らかなのでスペースもアンダーバーも無しでいいように思うのですが・・？

[napoleon]

実際には県名ではなく社内で使用している品目名に7桁の品名コード付与してほしいというオーダーだったのでアンダーバーがあった方が見やすいのかなと。。。オーダー元の意見を聞いてみます。

[m.ts10806]

ああ、なるほど。
VBAって裏でコード持たすこと難しいんでしたっけ
ちょっと難儀ですね