emailing worksheets without formulas

[gtrplayer5150]

I am using the following code to email 2 sheets out of a workbook. It works fine but I need to copy only the values and formats and not any formulas. I've been trying to get it to work with the pastespecial function but to no avail. Any suggestions?

thanks

Dim ws As Worksheet, wb As Workbook, ws2 As Worksheet, ws3 As Worksheet
Set wb = ActiveWorkbook
Set ws = Sheets("sheetname1")
Set ws1 = Sheets("sheetname2")
Workbooks.Add
Set ws3 = ActiveSheet
ws1.Copy ws3
Set ws2 = ActiveSheet
ws.Copy ws2
ActiveWorkbook.SendMail ws.Range("h10").Value, "subject"
ActiveWorkbook.Close False

 

[atmospheric]

This guy will have the answer somewhere here:

http://www.rondebruin.nl/sendmail.htm

 

[gtrplayer5150]

Thanks atmospheric, that site looks great!!!