Hi Ebgar

One way

Sub test()
Dim strDate As String
ActiveSheet.Copy
Cells.Copy
Cells.PasteSpecial xlPasteValues
Cells(1).Select
Application.CutCopyMode = False
strDate = Format(Now, "dd-mm-yy h-mm-ss")
ActiveWorkbook.SaveAs "Part of " & ThisWorkbook.Name _
& " " & strDate & ".xls"
ActiveWorkbook.Close False
End Sub


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


"Ebgar " wrote in message ...
I would like to copy a range of cells, to a new workbook/sheet without
it linking the formulas back to the original spreadsheet. (Basically
just capture the result values).

So what I would end up with is a *Static* copy of the sheet.

Here is where I am:

This basically does everything I want, except the new sheet links back
to the old file for all the formulas.
==========================

Dim strDate As String
ActiveSheet.Copy
strDate = Format(Date, "dd-mm-yy") & " " & Format(Time, "h-mm-ss")
ActiveWorkbook.SaveAs "Part of " & ThisWorkbook.Name _
& " " & strDate & ".xls"
ActiveWorkbook.Close False


---
Message posted from http://www.ExcelForum.com/