インデックスが有効範囲にありませんと出てしまう

質問

VBAで"実行時エラー9 インデックスが有効範囲にありません"と出てしまいます、解決方法を教えていただけないでしょうか?

以下のVBAで上記のエラーが出てしまいます。ちなみに私はVBA初心者です。
VBAの内容としてはとあるブックのシートを丸ごと、そのシートを必要とするブックのシートに貼り付けるというものです。

Sub コピー()

Dim ファイル名, 基本ファイル名
Dim i, j As String

i = ActiveWorkbook.Name
j = ActiveSheet.Name

Application.DisplayAlerts = False

基本ファイル名 = Sheets("データリスト").Range("B14").Value →ここでエラー発生

Workbooks.Open 基本ファイル名

If Err.Number > 0 Then
MsgBox "『○○』を開けませんでした" & vbCrLf & _
"ファイル名が間違っているか、存在しないか、拡張子が違います" & vbCrLf & vbCrLf & _フォルダ & " に " & vbCrLf & _ 基本ファイル名 & "ファイルがありません"
Exit Sub
End If

Worksheets("リスト").Range("A1:N400").Copy

Workbooks(i).Worksheets("リスト").Range("A1:N400").PasteSpecial

Workbooks(基本ファイル名).Close SaveChanges:=False →ここでもエラーが出てしまうことがある

Sheets(j).Select

Application.DisplayAlerts = True

MsgBox ("リストを取り込みました")

End Sub

回答No.2

imogasi

エラーが出た以上、下記のようなコードを参考に、その名のシートが（そのブックに）存在するか？のチェックを、前に入れるのはどうですか（ここに質問する前にね）。人や、それぞれの場合で、状況はかわるのだから。
https://www.tipsfound.com/vba/10009
シートが存在するか確認する
ーー
それにシート指定の前部分に、Workbookの指定を省略しているが、当面具体的に書くように癖を付けたら。
省略したら、XXとみなすという機能を、十分理解する（確信が持てる）まではね。

回答No.1

kkkkkm

VBA エラー 9 インデックスが有効範囲にありません。
https://www.tipsfound.com/vba/19009