Copy 2 worksheets to new workbook without code

[sharky12345]

Can anyone show me how I can copy 2 specific worksheets to a new workbook but without the macros attached to them?

I can copy a sheet to a new workbook fine, I can rename the sheet fine, but I'm struggling to do it with 2 sheets. This is what I have so far which works fine for 1 sheet:

ReportDate = Format(Now, "dd_mm_yy_hh_mm")

Fname = ThisWorkbook.path & "\Reports\121 Manager Report_" & ReportDate & ".xlsx"
Sheets("MANAGERS").Copy
For Each ws In ActiveWorkbook.Worksheets
    With ws.UsedRange
  .Value = .Value
    End With
Next ws
With ActiveWorkbook
Sheets("MANAGERS").Name = "121_MANAGERS_" & ReportDate
    .SaveAs FileName:=Fname
    .Close
End With

What I need in full is;

1) Copy the sheets to a new workbook (without code)
2) Rename each of the sheets in the new workbook (to a name yet to be decided)
3) Save the new workbook with a new name as an xlsx file and then close

 

[Fluff]

How about

Sheets(Array("MANAGERS", "Sheet1")).Copy

 

[sharky12345]

Fluff, thanks - that works in the respect that it copies both sheets but each sheet still has the code attached, is there an easy way I can remove it?

 

[Fluff]

You don't need to as you are saving as an xlsx file