ＶＢＡ★ブックがactivateできません

質問

簡単なＶＢＡで躓いています。
新しいエクセルファイルを追加して、アクティブにしたいです。

エクセルファイルの名をフォームで入力させ、mybookという変数にしました。

----------------
Private Sub CommandButton1_Click()
mybook = UserForm1.TextBox1.Text
Unload Me
End Sub
----------------

そして、mybookという名前のファイルを追加しました。
ここまではうまく行きます。

ただ、その後の　Workbooks(mybook).Activate　で
「実行時エラー”9”　インデックスが有効範囲にありません」
が表示されてしまいます。

----------------
Public mybook As String
----------------
Sub ファイル名変数()

UserForm1.Show
MsgBox "ファイル名は" & mybook & "です"

Workbooks.Add
ActiveWorkbook.SaveAs ThisWorkbook.Path & "\" & mybook

Workbooks(mybook).Activate

End Sub
----------------

一連の処理の中でactivateしたいな、という箇所が何回か出てくるのですが、
Workbooks(mybook).Activate　でエラーが出てしまい困っています。

識者の方、何卒アドバイスをお願いいたします。

回答No.1

muunoy · ベストアンサー

EXCEL2007以降ですか？

ワークブック名に、拡張子を入れないとだめみたいです。

ご参考まで。

お礼

どひゃーっ
拡張子入れたらエラー消えました。
本当にありがとうございました。