'Save As' function / macro

J

jpi_chicago

I have a workbook consisting of several worksheets. I'd
like to save only one (1) on the worksheets. Can someone
point me in the right direction? I assume I need to write
a macro.

Thanks,
Jeff
 
B

Bob Phillips

Activesheet.Copy
Activeworkbook.SaveAs Filename:="myfile.xls"

--

HTH

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

Ron de Bruin

Hi Jeff

ActiveSheet.Copy
or
Sheets("Sheet3").Copy
Create a new workbook with only that sheet

Sub test()
ActiveSheet.Copy
ActiveWorkbook.SaveAs "C:\Yourfilename.xls"
ActiveWorkbook.Close False
End Sub
 
J

jpi_chicago

Thanks much! Just what I was looking for.
-----Original Message-----
Activesheet.Copy
Activeworkbook.SaveAs Filename:="myfile.xls"

--

HTH

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




.
Click to expand...
 
Top