'Save As' function / macro

[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

 

[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)

 

[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

 

[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)




.

 

[Guest]

Thanks, Ron. Your reply was very useful.

-----Original Message-----
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


--
Regards Ron de Bruin
http://www.rondebruin.nl


"jpi_chicago" <[email protected]>

wrote in message [email protected]...