paste values only not formulas

I added a couple of columns to spreadsheet that reference other workbooks. I need this macro to paste special values

Sub CONECTIV22()
'
' CONECTIV1 Macro
' Macro recorded 6/13/2005 by tweaver
'

'

Range("A694:y725").Select
Selection.Copy
Workbooks.Open Filename:="k:\EXCEL\WORK FILE\2013\may\ESCHEDULEDATA.xls"
Range("A1").Select
ActiveSheet.Paste
ActiveWorkbook.SaveAs Filename:="k:\EXCEL\WORK FILE\2013\may\" & Format([G2], "mmddyy") & ".xls"
Application.CutCopyMode = False
Application.Dialogs(xlDialogSendMail).Show
ActiveWorkbook.Close
End Sub

Please Login or Register  to view this content.

INTO

Please Login or Register  to view this content.