This might be better

Sub makevalues()
With ActiveSheet.UsedRange
..Value = .Value
End With
End Sub

--
Don Guillett
SalesAid Software

"Henry" wrote in message
...
Hi to all
Im using the following code to save one sheet of my workbook to another
location and email....

Sub email()


ScreenUpdating = False
Worksheets("Table").Copy
ActiveWorkbook.SaveAs "\\Dfs01\shares\Groupdirs\0535\Table" &
Range("B56") & ".xls"
ActiveWorkbook.SaveAs "g:\data\table" & Range("B56") & ".xls"
ActiveWorkbook.SendMail Recipients:=Array("My distribution list")
ActiveSheet.Copy
ActiveWorkbook.SaveAs "\\Dfs01\shares\Groupdirs\0535\Table" &
Range("B56")" & Range("B56") & ".csv", FileFormat:=xlCSV
ActiveWorkbook.Close SaveChanges:=False
ActiveWorkbook.Close SaveChanges:=False
ScreenUpdating = True

End Sub

What should I add to make the saved sheets values only.... i have found
this code here in the NG but I not sure if it will work or where to place it
in my original code

With ActiveSheet.UsedRange
.Copy
.PasteSpecial Paste:=xlPasteValues
End With
Application.CutCopyMode = False


Thanks!