Thanks for the assist Ron.


SparkyMan

Ron de Bruin wrote:
For C:\Data use

Wb.SaveAs "C:\Data\" & Wb.Sheets(1).Range("B1").Value & ".xls"



"Sparky AKA_Sparkticus" wrote in
message k...
Hi Thanks for the link and the code

got it down to:

Dim Wb As Workbook
Set Wb = ActiveWorkbook
Wb.SaveAs Wb.Sheets(1).Range("B1").Value & ".xls"
MsgBox "File coppied into ??????"

which works great for me but was wondering if there was a way to
designate the folder it saves to?

sparkyman


Ron de Bruin wrote:
Hi

I want to save worksheets using data from a cell

You can change this example
http://www.rondebruin.nl/copy6.htm

replace the save line with this one

Wb.Saves Folder _
& "\" & Wb.Sheets(1).Range("B1").Value &
".xls"



"Sparky AKA_Sparkticus" wrote in
message k...
I want to save worksheets using data from a cell

12108(12-06-06) i would like to auto save using macro to select
the data in cell b1 mark(12-06-06) is this possible?

I tried but it used the same data as when i set up the macro each
time not the data that was in the cell at the time.

Sparkyman

--

There's no underestimating the intelligence of the American public.
H. L. Mencken (1880 - 1956)

--

There's no underestimating the intelligence of the American public.
H. L. Mencken (1880 - 1956)