excel - VBA:ワークブックのコピーを作成し、シートを削除してから別の名前で保存しますか?

Question

私は次のことをしようとしています:

• ブックをコピーする
• シートの一部を取り除く
• 別のファイル名で保存

これは私の試みでしたが、うまくいきませんでした：

Private Sub publish()
    Dim new_wb As Workbook

    'Doesnt seem to compile??
    Set new_wb = ActiveWorkbook.Sheets.Copy

    For i = new_wb.Sheets.Count To 1
        If InStr(LCase(new_wb.Sheets(i).CodeName), "output") = 0 Then
            new_wb.Sheets(i).Delete
        End If
        i = i - 1
    Next

    Application.DisplayAlerts = False
    new_wb.SaveCopyAs Filename:=Range("output_path").Value
    new_wb.Close
    Application.DisplayAlerts = True

End Sub

誰かが私が間違っているところを助けてくれますか?