VBA Copy specific sheets to new workbook and paste as values

[lododd]

Hello

I'm looking to copy specific worksheets to another workbook. My method below works but the final sheet "Chart data" I would like to just be values rather than keeping the formulas. Note that the other worksheets being copied are charts and all drive from the chart data sheet.

Sub Sheet_SaveAs()
Dim wb As Workbook
MName = Sheets("MENU").Range("C2").Text
YName = Sheets("MENU").Range("C3").Value

Sheets(Array("EBITA_MWC", "MWC%", "Aging", "E&O", "Turns", "DSO", "DPO", "SalesFTE", "Chart Data")).Copy
Set wb = ActiveWorkbook
With wb
.SaveAs ThisWorkbook.Path & "\Monthly Performnce - " & MName & YName & ".xlsx"
'.Close False
End With

End Sub

Any help is much appreciated

 

[sergioMabres]

To paste values in a range use

.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks :=False, Transpose:=False

Cheers
Sergio