Q: save a sheet to a file

[JIM.H.]

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?

[i-Zapp]

ActiveSheet.Copy
ActiveWorkbook.SaveAs Filename:= "C:\somefilename.xls"

try using the record macro functionality. works good for stuff like this.

[Dave Peterson]

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