Hi gan
I am trying to save one sheet of a workbook to a new file. Currently I am using...
Sub SaveTestSheetSeparately(
Worksheets("test").Cop
ActiveWorkbook.SaveAs "test1.xls
End Su
I would like the file name to be the contents of cell B3. How do I need to modify the code
Thank
Gene

ActiveWorkbook.SaveAs Range("B3")

or

ActiveWorkbook.SaveAs Range("B3") & ".xls"

depending on whether the extension is included in the cell.

Be warned that unless you specify the path, your workbook may end up being
saved in a completely different directory from what you may be expecting.

--

Vasant


"Gene" wrote in message
...
Hi gang
I am trying to save one sheet of a workbook to a new file. Currently I am
using....
Sub SaveTestSheetSeparately()
Worksheets("test").Copy
ActiveWorkbook.SaveAs "test1.xls"
End Sub
I would like the file name to be the contents of cell B3. How do I need to
modify the code.
Thanks
Gene

sFileName = Worksheets("Sheet1").Range("B3).Value

ActiveWorkbook.SaveAs sFileName



Patrick Molloy
Microsoft Excel MVP

-----Original Message-----
Hi gang
I am trying to save one sheet of a workbook to a new
file. Currently I am using....
Sub SaveTestSheetSeparately()
Worksheets("test").Copy
ActiveWorkbook.SaveAs "test1.xls"
End Sub
I would like the file name to be the contents of cell
B3. How do I need to modify the code.
Thanks
Gene
.