Copy Worksheets macro

[kizzie37]

I need a simple macro that will copy 4 worksheets form a workbook to a newexcel workbook keeping the formatting, but just as values.I am using excel 2010

Each of the worksheets is a little different:
I has 3 "Tables" on it, (i mean tables in the 2010 format)
2 have charts - I will need the charts copied as values only i.e dont want them trying to call anothher workbook in a directory
the last has a chart and its associated data table, so the table will copy with it

can anyone help,

 

[Trevor G]

Try this out. I am selecting all the cells on 3 sheets

<font face=Courier New><SPAN style="color:#00007F">Sub</SPAN> Macro2()<br><SPAN style="color:#00007F">Dim</SPAN> ws <SPAN style="color:#00007F">As</SPAN> Worksheet<br>Sheets(Array("Sheet1", "Sheet2", "Sheet3")).Copy <SPAN style="color:#007F00">'Change sheet names</SPAN><br><SPAN style="color:#00007F">For</SPAN> <SPAN style="color:#00007F">Each</SPAN> ws <SPAN style="color:#00007F">In</SPAN> Worksheets<br>    ws.Activate<br>    Cells.Copy <SPAN style="color:#007F00">'Selecting all cells on the sheet</SPAN><br>    Cells.PasteSpecial xlPasteValuesAndNumberFormats<br>    Range("A1").Select<br>    Application.CutCopyMode = <SPAN style="color:#00007F">False</SPAN><br><SPAN style="color:#00007F">Next</SPAN> ws<br><br><SPAN style="color:#00007F">End</SPAN> <SPAN style="color:#00007F">Sub</SPAN></FONT>

 

[kizzie37]

thanks, where does this action a new workbook?