ActiveWorkbook.Sheet4.Copy
ActiveWorkbook.SaveAs Filename:="Coffee-A.xls"

--

HTH

Bob Phillips
... looking out across Poole Harbour to the Purbecks
(remove nothere from the email address if mailing direct)

"Fred Holmes" wrote in message
...
Excel 2000

Is there a programming statement that will save a worksheet out of a
workbook to a new filename?

Application.ActiveWorkbook.Sheet4.SaveCopyAs ("Coffee-A.xls")

The foregoing statement fails because the SaveCopyAs method only
supports worksbooks, not worksheets.

Thanks for any help.

Fred Holmes