....then you might close your original file without saving...


On 25 Mar, 23:55, Phil Smith wrote:
This takes my current workbook, converts all of the sheets to thier
values. *My original workbook needs to remain intact with thier links.

It does tell me how to accomplish some of my goal though.

Thanx



Jarek Kujawa wrote:
"to take a workbook with a dozen worksheets, and create 12 seperate
worksheets"?

you mean "create 12 seperate WORKBOOKS"? 1 worksheet in each of them?

Sub Separate
Dim ws as Worksheet

Sheets.Add
ActiveSheet.Name = "test"

For Each ws in Activeworkbook.Worksheets
If ws.Name < "test" Then
With Range(Cells(1,1), ActiveCell.SpecialCells(xlLastCell))
.Copy
.PasteSpecial Paste:=xlPasteValues
End With
ws.Move
End If
Next ws

End Sub

On 25 Mar, 17:58, Phil Smith wrote:

It would take me forever to figure out how to code this myself. *What I
want is to take a workbook with a dozen worksheets, and create 12
seperate worksheets, filled with the formatting and the values, (similar
to a paste special values only) of each worksheet.

I need the values only because I am using a lot of links to create the
worksheets.

Can anyone point me to some code I can hack up?

Thanx

Phil- Ukryj cytowany tekst -

- Poka¿ cytowany tekst -