I have a excel spreadsheet that has a formula for each cell. Is there a way
to copy just the results and past them into a new worksheet? That way, it
doesn't have to reference and formulas or workbooks?

Thanks,
Jasper

Hi Jaz

Worksheet or workbook ?

You can copy for example the activesheet in a new workbook and change the formulas to values

Manual
Copy the cells and use Edit>PasteSpecial...values on the new sheet


Or with code


Dim Destwb As Workbook

ActiveSheet.Copy
Set Destwb = ActiveWorkbook

'Change all cells in the worksheet to values
With Destwb.Sheets(1).UsedRange
.Cells.Copy
.Cells.PasteSpecial xlPasteValues
.Cells(1).Select
End With
Application.CutCopyMode = False

--

Regards Ron de Bruin
http://www.rondebruin.nl/tips.htm


"Jaz" <(E-Mail Removed)> wrote in message news:(E-Mail Removed)...
>I have a excel spreadsheet that has a formula for each cell. Is there a way
> to copy just the results and past them into a new worksheet? That way, it
> doesn't have to reference and formulas or workbooks?
>
> Thanks,
> Jasper
>
>

THANKS!!!
"Ron de Bruin" <(E-Mail Removed)> wrote in message
news:(E-Mail Removed)...
> Hi Jaz
>
> Worksheet or workbook ?
>
> You can copy for example the activesheet in a new workbook and change the
formulas to values
>
> Manual
> Copy the cells and use Edit>PasteSpecial...values on the new sheet
>
>
> Or with code
>
>
> Dim Destwb As Workbook
>
> ActiveSheet.Copy
> Set Destwb = ActiveWorkbook
>
> 'Change all cells in the worksheet to values
> With Destwb.Sheets(1).UsedRange
> .Cells.Copy
> .Cells.PasteSpecial xlPasteValues
> .Cells(1).Select
> End With
> Application.CutCopyMode = False
>
> --
>
> Regards Ron de Bruin
> http://www.rondebruin.nl/tips.htm
>
>
> "Jaz" <(E-Mail Removed)> wrote in message
news:(E-Mail Removed)...
> >I have a excel spreadsheet that has a formula for each cell. Is there a
way
> > to copy just the results and past them into a new worksheet? That way,
it
> > doesn't have to reference and formulas or workbooks?
> >
> > Thanks,
> > Jasper
> >
> >