Excelでの複数シートへの値の入力
おはようございます。
Excel2000で複数のシートを選択した状態でセルに値を入力すると、他のシートの同じセルに内容が入力されますよね。
この機能の名称はわかりませんが・・・(^_^;)
これをヒントに「フォーム内にあるTextBoxに入力された値を各シートのセルに入力しよう」というVBAのソースを作ってみましたが、
実行してみると選択されている1枚目のシートにしか値が入力されません。
汚いソースをみなさんに見せるのは恥ずかしいのですが、
是非実現したいので、どこが間違っているか指摘をいただけると幸いです。
やろうとしていること：
フォームのテキストボックスに値を入力し、
コマンドボタンを押すとシートを複数枚選択し、
各シートのセル”A1”（AからDまでを結合）に値を入力する。
*******************************************
Private Sub CommandButton1_Click()
'テキストボックスの値取得と、店名の合成
Dim myTmei As String
Dim myTmei2 As String
myTmei = TextBox1.Text
myTmei2 = "店名" & myTmei
'シートの選択
Sheets(Array(5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20, 21, 22, 23, 24, 25, 26, 27, 28, 29, 30, 31, 32, 33, 34, 35, 36, 37, 38, 39, 40, 41, 42, 43, 44, 45, 46)).Select
'値の入力
Range("A1").Select
Range("A1").Value = myTmei2
End Sub
******************************************
結果を見ると、シート自体は選択できているのですが、
その中でも「アクティブになっている(?)シート（1枚目）のセルだけに値を入力しなさいよ。」と書いてしまったようで、
「全てのシートのセル”A1”に入力しなさい。」という部分が書けていないのだと思うのです。
Selectだけじゃ、ダメなのかな・・・
どうかよろしくお願いします。
![その他([技術者向] コンピューター) イメージ](https://gazo.okwave.jp/okwave/spn/images/related_qa/c205_2_thumbnail_img_sm.png)
お礼
XLGETDATAは有償版じゃないと使えないコマンドみたいでした。 別の方法を模索してみます。 回答ありがとうございました＾＾