My typo - thanks.

--
Regards,
Tom Ogilvy


"Lonnie M." wrote in message
oups.com...
Substitute value for values:
Activesheet.UsedRange.Formula = ActiveSheet.Usedrange.Value

Verses:
Activesheet.UsedRange.Formula = ActiveSheet.Usedrange.Values

Regards--Lonnie M.

Tom Ogilvy wrote:
Application.DisplayAlerts = False

Dim wb As Workbook
Sheets(Array("Recap")).Copy
Activesheet.UsedRange.Formula = ActiveSheet.Usedrange.Values
Set wb = ActiveWorkbook
wb.SaveAs Filename:="C:\Recap-Ver1.1.xls"
wb.Close False

Application.DisplayAlerts = True


--
Regards,
Tom Ogilvy

"sungen99" wrote
in
message ...

This is my code. It is saving the data correctly but its saving the
formulas and all i want is the "value". How would I change this to
only place the values?

thank you!
Ken




Application.DisplayAlerts = False

Dim wb As Workbook
Sheets(Array("Recap")).Copy
Set wb = ActiveWorkbook
wb.SaveAs Filename:="C:\Recap-Ver1.1.xls"
wb.Close False

Application.DisplayAlerts = True


--
sungen99

------------------------------------------------------------------------
sungen99's Profile:
http://www.excelforum.com/member.php...fo&userid=9144
View this thread:
http://www.excelforum.com/showthread...hreadid=400465