Rock,

Sub save_sheet_to_new_workbook()

'copies it to a new workbook
ThisWorkbook.Worksheets(1).Copy
'the new workbook is now active
ActiveWorkbook.SaveAs "saved copy"

End Sub

hth,

Doug

"Rock*" wrote in message
...
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