"Excel Vba" I’m need help with a copy sheet code!

[Javi]

I have a workbook with many sheets one of the sheets is a Pivot Table. I would like to give the user the option to create a new sheet with the pivot table sheet and the sheet that contains its source data only.
<?xml:namespace prefix = o ns = "urn:schemas-microsoft-comfficeffice" /><o> </o>
This would allow them to continue to work without the large workbook needing to be open. This code will be run from the pivot table sheet.
<o> </o>
I would appreciate any assistance with this code.
<o> </o>
Thank you.

 

[VoG]

Maybe like this

Sub CopySheet()
ActiveSheet.Copy
With ActiveWorkbook
    .SaveAs Filename:=ActiveSheet.Name & ".xls"
    .Close
End With
End Sub

 

[Javi]

<?xml:namespace prefix = o ns = "urn:schemas-microsoft-comfficeffice" /><o> </o>
<o> </o>
The code worked with a few exceptions,

I would like to leave the file that creates open.
<o> </o>
When you open a file that creates it gives the following error.
<o> </o>
“The file you were trying to open, “ filename .xls” is in a different format than specified by the file extension. Verify that the file is not corrupt and is from a trusted source before opening the file. Do you want to open the file now? “

 

[VoG]

Try

Sub CopySheet()
ActiveSheet.Copy
ActiveWorkbook.SaveAs Filename:=ActiveSheet.Name & ".xlsx", FileFormat:=51
End Sub

 

[Javi]

Work great Thank You!!!