VBAに関して

質問

EXCEL2010にて簡単にボタンで操作できるようにVBAを作っています。
なかなかにうまくいかないのですが、アドバイスなどいただけたらと思います。

やりたいこと
　・A1にシート名を選択するドロップダウンリストがあるのですが、それを選択してボタン「ジャンプ」を押すとそのシートに飛んでくれるようにしたい

Sub シート選択()

a = Range("a1").Value

Sheets(a).Activate

End Sub

上記のようにやってみているのですが、インデックスが有効範囲にないと；；
よろしければ教えてください。

シート名は「H25 1月」みたいな感じです。
よろしくお願いいたします。

回答No.1

sean9

回答にはなりませんが、Excel2007で試したところ問題なく動作しました。
手順としては
1. 「sheet1」、「H25 1月」、「H25 2月」の3つのシートを用意
2. 「sheet1」のA1に「データの入力規則」からリストを作成、「元の値」に各シート名を入力
3. ボタンを挿入し、マクロに以下を登録　(mocoikeさんのをコピペしました)
a = Range("a1").Value

Sheets(a).Activate

これで動いてます。
リスト作成時に,(カンマ)で区切る際、スペースなどは入れてませんか？
もしくは数字の全角・半角などの差異はありませんか？

あまりおやくにたてず・・・頑張ってください。