vba ワークシートを変数を用いて開くには

質問

初歩的な質問ですが、
ワークシートの書式が新しくなったことで、書き換えをすることになりました。

現在のエクセルファイルから、新しいエクセルファイルへ、セルの値を参照しながら
VBAにて作業をしたいのですが、

Sub changesheet()

Dim iname As String
Dim wbname As String

iname = InputBox("ブック名を入力", "対象ブックを入力")
wbname = "シート2012（" & iname & ").xls"

ActiveSheet.Range("P4").Value = Workbooks(wbname).Worksheets("Sheet1").Range("P4").Value

End Sub

この記載で実行すると、インデックスが有効範囲にありません
とエラーになってしまいます。

変数（inputbox）を用いたセルの参照はどのように記述すればよろしいでしょうか？
よろしくお願いします。

回答No.1

xls88 · ベストアンサー

対象ブックは開かれていますか？

開かれているならブック名が違っているのでは、、、
ひとつ気になるのは
"シート2012（" & iname & ").xls"
の処で
前括弧と後括弧が全角と半角の違いがあるのですが間違ってはいませんか？

お礼

回答ありがとうございました。
ご指摘の通り、対象ブックが開かれていなかったこと、括弧が全角と半角と混在していたことが原因でした。

コードを修正し、無事動きました。

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