VBA to copy file and delete tabs

I have an Excel spreadsheet (called 'Finance Tool.xlsm') with about 10 tabs (Sheet 1, Sheet 2, Sheet 3, etc), and I would like to include a procedure that does the following:

1) Copies the whole workbook ('Finance Tool.xlsm') to a new workbook.
2) Deletes all of the tabs apart from Sheet 1, Sheet 2, and Sheet 3.
4) Saves the workbook to a folder (/Temp) and gives it a name based on today's date.
5) Closes the file and returns me to the original workbook.

I have tried code from a few different sources but can't seem to get the procedure as a whole to work. I especially have problems with the deletion of tabs.

Any guidance would be much appreciated!

Many thanks in advance

Shaun

.
To delete specific worksheets:

Sub DeleteAllButNotedSheets()

Dim ws As Worksheet

Application.DisplayAlerts = False

For Each ws In ThisWorkbook.Worksheets

    If ws.Name <> "Sheet1" Or "Shee2" Or "Sheet3" Then
        ws.Delete
    End If

Next

Application.DisplayAlerts = True

End Sub