Hi Steved
See the Tip link on the mail pages
This is for the SendMail code
http://www.rondebruin.nl/mail/tips1.htm
--
Regards Ron de Bruin
http://www.rondebruin.nl
"Steved" wrote in message ...
Hello from Steved
I am not sure how to add extra email address
I need to add 13 Thankyou.
Sub Mail_Crinel()
Dim wb As Workbook
Dim strdate As String
strdate = Format(Now, "dd-mm-yy")
Application.ScreenUpdating = False
Sheets("Paradox-Kilometres").Copy
Cells.Copy
Cells.PasteSpecial xlPasteValues
Cells(1).Select
Application.CutCopyMode = False
Set wb = ActiveWorkbook
With wb
.SendMail ", _
"Auckland Kilometres"
.Close False
End With
Application.ScreenUpdating = True
End Sub