Sub CopySheet() Dim srcWorkbook As Workbook Dim dstWorkbook As Workbook Dim srcSheet As Worksheet Dim dstSheet As Worksheet ' エラーハンドリング On Error GoTo ErrorHandler ' A.xlsmを開く Set srcWorkbook = Workbooks.Open("C:\Path\to\A.xlsm"…