VBA Code to export dynamic excel tabs to new workbook

Hi,

I have been looking through many threads to find out the Excel sheet export code, but wasn't lucky.

Here is my requirement, i have multiple sheets in the attached with different name and it will keep adding as we progress. I need a vba code which should prompt me to ask which tabs to export to new workbook. Please help

In the attached, i have created A,B,C,D & E tabs and the VBA code should prompt sheet names for me to select and export/move/copy to new workbook.

Thanks Mike this serves the purpose, i will play with my original file and let you know. many thanks

Mike,

It worked well with minor tweaks and i was able to add my existing code for few more calculations and formatting. Thanks a lot

Could you use something like this?

Sub savetrees()
Dim i As Long
Dim y As String
Dim x As Long
Dim wbk As Workbook
Application.DisplayAlerts = False
Set wbk = ActiveWorkbook
Sheets.Add.Name = "Export"
Do Until MsgBox("Would you like to add another sheet too export", vbYesNo) = vbNo
    Sheets("Export").Range("A" & Rows.Count).End(3)(2) = InputBox("Please Enter A Sheet too Export")
Loop
Workbooks.Add
ActiveWorkbook.SaveAs wbk.Path & "/" & "new workbook" & ".xls"
x = ActiveWorkbook.Sheets.Count
wbk.Sheets("Export").Activate
    For i = 2 To Range("A" & Rows.Count).End(3).Row
        y = Cells(i, "A").Value
        wbk.Sheets(y).Activate
        ActiveSheet.Copy after:=Workbooks("new workbook.xls").Sheets(x)
        wbk.Sheets("Export").Activate
    Next i
wbk.Sheets("Export").Delete
Application.DisplayAlerts = True
End Sub

Thanks John, yes this solution also working fine, however Mike's input serves perfectly with my requirement. And thanks for your inputs as well ... ..