How can I copy and save only one sheet of the active workbook.

This method copies the whole workbook and I only need to copy and save one
of the sheets:
ActiveWorkbook.SaveCopyAs

Thank you.
Diana