エクセルVBAの質問です。複数シートがあるdownload.xlsというブックがあります。このブックの２シート目以降を別ブック（today.xls）として、download.xlsと同じディレクトリに保存し、尚かつ最後のステップとしてdownload.xlsから２シート目以降を削除して終わるマクロをご教授いただけないでしょうか。完全な回答をしていただいた最初の回答者の方にはお気持ちですが、300ポイント差し上げたいと思います。ぜひ宜しくお願いいたします。

こんな感じでどうでしょうか。

Sub Macro()
    Dim wb As Workbook
    Dim c As Integer
    Dim i As Integer
    
    c = Worksheets.Count
    Application.SheetsInNewWorkbook = 1

    Set wb = Workbooks.Add
    
    Application.DisplayAlerts = False
    For i = 1 To c - 1
        ThisWorkbook.Worksheets(2).Copy after:=wb.Worksheets(wb.Worksheets.Count)
        ThisWorkbook.Worksheets(2).Delete
    Next
    
    wb.Worksheets(1).Delete
    
    Application.DisplayAlerts = True
    
    wb.SaveAs (ThisWorkbook.Path & "\today.xls")
    wb.Close
End Sub