前回書いてみた通り， Sub a() 'だめ Dim PWB As Workbook: Set PWB = Workbooks.Add() Dim PWS As Worksheets: Set PWS = ThisWorkbook.Worksheets(1).Copy(after:=PWB.Worksheets(PWB.Worksheets.Count)) End Sub Sub b() 'うまくいく Dim PWB As Workbook…