Hi all,
I am fairly new to excel and need some help.
I have a workbook 'Reports' that has links to another workbook
'Workings'
the w/b 'reports have seven worksheets one for each day of the week, I
need to beable to archive this w/b at the end of every week,so
1) I need to save the workbooks to the same folder but each with a
different file name.
2) I need to break the links and just send the data, as the original
w/b will be cleared to use again.
can this be done if so how?
---------
Message sent via www.excelforums.com

H

After you have saved the workbook with different name you could cop
the linked data and paste it back only values selected
--------
Message sent via www.excelforums.com

If you incorporate the date into the filename you would
have a standard way of having a unique name and
be able to find them quickly in the directory. Put the
year before the month and those before the day of the month.

see backup by date in
Backup your files, always take backups
http://www.mvps.org/dmcritchie/excel/backup.htm#demand
using a statement like
dname = "c:\mybackup\B" & Format(Now(), "yyyy_mmdd")

You might use a template (.XLT) for a new worksheet
---
HTH,
David McRitchie, Microsoft MVP - Excel [site changed Nov. 2001]
My Excel Pages: http://www.mvps.org/dmcritchie/excel/excel.htm
Search Page: http://www.mvps.org/dmcritchie/excel/search.htm

"TJTH - ExcelForums.com" <(E-Mail Removed)> wrote in message news:(E-Mail Removed)...
> Hi
>
> After you have saved the workbook with different name you could copy
> the linked data and paste it back only values selected.
> ---------
> Message sent via www.excelforums.com

If you don't use a template you can clear out all of the constants
beyond row 1 and column 1. Of course this is probably too severe
so you would have to reduce the scope further or make some of your
constants into formulas, if they aren't entered by users. ClearContents
will not affect formatting.a

On Error Resume Next
Range("B2:" & Cells.SpecialCells(xlLastCell).Address). _
SpecialCells(xlCellTypeConstants, xlTextValues).ClearContents
Range("B2:" & Cells.SpecialCells(xlLastCell).Address). _
SpecialCells(xlCellTypeConstants, xlNumbers).ClearContents