emailing worksheets without formulas

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
 

Forum statistics

Threads
1,077,926
Messages
5,337,241
Members
399,133
Latest member
tamako

Some videos you may like

This Week's Hot Topics

Top