セルに記載してある値を利用して別のブックを開く方法

Book1.xlsmのシートListのB列に記載してあるファイルを開きたいのですが、うまくいきません。
エラーはTWB = Workbooks(MyPath & MyFile)でインデックスが有効範囲にありませんと返ってきます。
B列に書いてあるファイル名には問題ないのですが、どのように処理すればよいかご教示ください。

Sub BookOpen()

Dim MWB As Workbook
Dim MyPath As String
Dim MyFile As String
Dim nRow As Long
Dim i As Long
Dim TWB As Workbook

Set MWB = Workbooks("Book1.xlsm")

MyPath = "C:test\"

nRow = MWB.Worksheets("List").Cells(Rows.count, 1).End(xlUp).Row

For i = 2 To nRow
On Error GoTo 0
MyFile = MyPath & MWB.Worksheets("List").Cells(i, 2).Value

TWB = Workbooks(MyPath & MyFile)
Workbooks.Open TWB

Next

End Sub

No.1 ベストアンサー 回答者： bonaron 回答日時： 2015/07/13 01:32

× MyPath = "C:test\"

○ MyPath = "C:\test\"

でしょうね。

この回答へのお礼

ありがとうございます!プロパティのパスをそのまま使っていたので、C:の下に\が必要だとは全く考えていませんでした。。。勉強になりました。

お礼日時：2015/07/13 09:31

No.2 回答者： 銀鱗 回答日時： 2015/07/13 09:15

自分もパスの設定をしくじっているに一票入れておきます。