Manually, you could copy that sheet to a new workbook and save that new
workbook.

Dim Wks as worksheet
dim destFile as string

destfile = "c:\temp\myfile.xls"
set wks = activeworkbook.worksheets("Sheet99")
wks.copy 'creates a new workbook

activeworkbook.saveas destfile
activeworkbook.close savechanges:=false


JIM.H. wrote:

I use ActiveWorkbook.SaveAs destFile in a macro to save current workbook to a
n excel file, how can I save only a specific sheet in current workbook to a
file?

--

Dave Peterson