質問: True Exit Sub エラー処理: MsgBox Err.Description End Sub
回答: 普通に検索すれば分かる内容で、ここで質問する程の事ではないと思いますが、 Application.Workbooks.Open("ファイルパス") でブックは開けます。 仮に修正するなら、 Dim Book As WorkBook set Book = Application.Workbooks.Open("ファイルパス") Set セル = Book.Worksheets("ワークシートB").Range("A1048576").End(xlUp).Offset(1) Worksheets()の前に[.]が付いてないと、 自動的にActiveBookのシートが参照されるので、 ThisWorkbook.WorkSheets()等、ブックから書く方が安全です。 ※これはCells()、Range()でも同様です。 また、人に見せるなら、インデントを調整してください。