VBAについてbook1のセルをbook2のセルに代入

Question

タイトルに書いた通りなんですが
１０１〜というExcelファイルがあり入居者〜というファイルがあります。
１０１〜のセルの値を入居者〜のセルに代入したいのですがインデックスエラーがでます。

Workbooks(" 入居者預かり金合計表.xlsx").Worksheets(2).Cells(66, 5) = Workbooks("101　山本達雄.xlsm").Worksheets(4).Cells(Max, 5)
End Sub

これの間違っているところがわからなく解決できません。
どなたか教えていただけないでしょうか。
初歩的な質問で申し訳ありません。
よろしくお願い致します。

Comments

[hatena19]

そのコードの前に下記のコードを挿入して、
Debug.Print Max
イミディエイトウィンドウに出力された値はどうなりますか。

Answer 1

Workbooks(" 入居者預かり金合計表.xlsx")

ファイル名の先頭にブランクが入っているからでは？

Comments

[hirokibdd]

回答頂きありがとうございます。
ファイルを開いていないためエラーが
出ていたのだと思います。
開くと解決できました。

[ttyp03]

いや、開いていないときは別のエラー出ますよ？

Answer 2

.Cells(Max, 5)のMaxの値が範囲外なのだと思います。

Comments

[hirokibdd]

回答頂きありがとうございます。
ファイルを開いていないためエラーが
出ていたのだと思います。
開くと解決できました。