Hi to al
Im using the following code to save one sheet of my workbook to another location and email...

Sub email(

ScreenUpdating = Fals
Worksheets("Table").Cop
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.Cop
ActiveWorkbook.SaveAs "\\Dfs01\shares\Groupdirs\0535\Table" & Range("B56")" & Range("B56") & ".csv", FileFormat:=xlCS
ActiveWorkbook.Close SaveChanges:=Fals
ActiveWorkbook.Close SaveChanges:=Fals
ScreenUpdating = Tru

End Su

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 cod

With ActiveSheet.UsedRang
.Cop
.PasteSpecial Paste:=xlPasteValue
End Wit
Application.CutCopyMode = Fals

Thanks

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!