Move sheets to new workbook and save

[Valentin]

I need a macro to move all sheets except last sheet to new workbook and save the new workbook

 

[Valentin]

your solution is almost correct, only the order of the sheets in newWorkbook is wrong. Have found another solution

 Set wb1 = ThisWorkbook
    lastShName = wb1.Sheets(Sheets.Count).Name
    Set wb2 = Workbooks.Add

    For Each ws In wb1.Sheets
        If ws.Name <> lastShName Then
            ws.Move After:=wb2.Sheets(wb2.Sheets.Count)
        End If
    Next ws

 

[mohadin]

Is it possible to show your solution in here?
Thanks

 

[Valentin]

Set wb1 = ThisWorkbook
    lastShName = wb1.Sheets(Sheets.Count).Name
    Set wb2 = Workbooks.Add

    For Each ws In wb1.Sheets
        If ws.Name <> lastShName Then
            ws.Move After:=wb2.Sheets(wb2.Sheets.Count)
        End If
    Next ws

 

[mohadin]

Thank you For the sharing
Be happy

 

[Valentin]

Don't forget to Mark as solution

 

[Sahak]

Where do you see "Copy" in code?

Sub Delete_Last_Sheet()
    Application.DisplayAlerts = False
    Sheets(Sheets.Count).Delete
    Call SaveFile_WithNewName
End Sub
Sub SaveFile_WithNewName()
    Dim newName As String
    newName = "NewWorkbook"
    ActiveWorkbook.SaveAs Filename:=newName
End Sub

 

[Valentin]

The word "copy" is not in your code but all sheets except the last one will be COPIED to the new workbook. in the code I suggested, all sheets except the last sheet are MOVED to the new workbook and only the last sheet remains in the first workbook.