Excel2000 VBA シート名の変更

質問

なかなかうまくいかずに困っています。

Excel2000　
OS：WindowsXp

ユーザーフォーム（UserForm1)上に

・Textbox1
・Textbox2
・Commandbutton1

があります。

Commandbutton1をクリックすると、Textbox1とTextbox2の値をつなげた文字列を、
アクティブなワークシートの名前にしたいと思っています。

今現在の、うまく動かないコードは以下のとおりです。

Private Sub CommandButton1_Click()
'ユーザーフォーム上のCommandButton1

Dim snday As Variant 'Textbox1に入力される、『日』を取得するための変数
Dim snyoubi As Variant 'Textbox2に入力される『曜日』を取得するための変数
Dim namae As Variant 'シート名になる変数。
Dim Sh As Worksheet

snday = UserForm1.TextBox1.Value
snyoubi = UserForm1.TextBox2.Value

namae = snday & snyoubi

Sh.Name = namae

End Sub

これを実行すると、

実行時エラー’91’
オブジェクト変数または　withブロック変数が設定されていません

のエラーが出ます。

Sh.Name = namae

のところを

with ActiveSheet ～End with

で挟んでみてもだめでした。

どなたかご教授ねがえませんか。
よろしくお願いいたします。

回答No.1

FEX2053 · ベストアンサー

まずはこれ。Shって、ちゃんとシートのオブジェクトになってます？

Sh.Name = namae

プロさんの組むプログラムだとそうなってると思いますけど、通常は例えば

Sheets("Sheet1").Name = namae
ActiveSheet.Name = namae

とかにすると思いますよ。

あとこれ。

Dim snday As Variant 'Textbox1に入力

なんでわざわざVariant型にするのかな。TextBoxから受けてシート名にするなら、ちゃんとString型で受けておかないと、数値と認識して変数nameが数値になっちゃうことがありますよ。ですので

Dim snday As String 'Textbox1に入力

以下、Variantになってる部分をちゃんとStringなりDoubleなり、使う変数の内容をしっかり表現しておいた方がいいです。多分その２つで動くようになると思うんですが・・・。

お礼

教えていただき、ありがとうございました。

VBAの知識がほとんど無く、ネットで検索したコードを、つなぎ合わせたり、
なんとなく書いてみたり、でたらめな点があるとおもいます。
正しい知識を、少しずつですが、勉強していきたいと思っています。

教えていただいた、変数の型を　String　にし、

削除：Sh.Name = namae

追加：ActiveSheet.Name = namae

してみたら、思ったとおりのことが出来るようになりました。

ありがとうございました。

回答No.2

mu2011

Shにworksheetオブジェクトが設定されていないからです。
一例ですが、Sh.Name = namae文の前にSet Sh = ActiveSheetを挿入して見て下さい。

お礼

mu2011さんのコードでもできました。

ありがとうございます。

Set Sh = ActiveSheet

指定してあげる必要があるのですね。

勉強になります。

mu2011さんの投稿を確認したのは、FEX2053さんにベストアンサーをつけたあとでしたので、申し訳ありませんが、お礼入力しかできませんでした。

しかしながら、ご回答いただき、本当にありがとうございました。