gtrplayer5150
New Member
- Joined
- Nov 21, 2005
- Messages
- 16
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
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