Save values only before save

[Guest]

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

 

[Don Guillett]

This might be better

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

--
Don Guillett
SalesAid Software
(e-mail address removed)

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

 

[Don Guillett]

When I see BOB, I'll tell him.

 

[Guest]

My apologies Don----- No offense intended

 

[Don Guillett]

none taken. I was just playing with it.

 

[Guest]

So where do I put it in the cod
Thanks!