移動先を省略し、「Worksheets(*).Copy」とすると新しいブックにコピーします。 Sub Sample22() '「Sheet1」を新しいブックにコピーします Worksheets("Sheet1").Copy End Sub