EXCELで下記のVBAスクリプトで添付画像のようなエラーが出てしまいます。
「Workbooks.Open DirB 'フルパスで書く」で処理が止まってしまっています。
どうすればなおりますか。

'ディレクトリの場所の関数宣言
Dim DirB As String
DirB = ActiveSheet.Cells(15, 12).Value
Dim Fname As String
Fname = ActiveSheet.Cells(15, 13).Value
Dim SheettB As String
SheettB = ActiveSheet.Cells(15, 14).Value
Dim Hontai As String
Hontai = ActiveSheet.Cells(15, 15).Value
Dim CopyHani1 As String
CopyHani1 = ActiveSheet.Cells(15, 16).Value
Dim CopyHani2 As String
CopyHani2 = ActiveSheet.Cells(15, 17).Value
Dim CopyHani3 As String
CopyHani3 = ActiveSheet.Cells(15, 18).Value


' 別ファイル「」csvファイルデータ抽出
Workbooks.Open DirB 'フルパスで書く

If DirB <> "" Then
Workbooks(Fname).Worksheets(SheettB).Range(CopyHani1).Copy 'コピー元
Workbooks(Hontai).ActiveSheet.Range("A5:A9000").PasteSpecial '貼り付け先
Workbooks(Fname).Worksheets(SheettB).Range(CopyHani2).Copy 'コピー元
Workbooks(Hontai).ActiveSheet.Range("I5:I9000").PasteSpecial '貼り付け先
Workbooks(Fname).Worksheets(SheettB).Range(CopyHani3).Copy 'コピー元
Workbooks(Hontai).ActiveSheet.Range("K5:K9000").PasteSpecial '貼り付け先
Workbooks(Fname).Close
Else
MsgBox "ファイルが、見つかりません。", vbExclamation
End If

End Sub