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

You can put them into an array:

.SendMail ", _
", _
"), _
"Auckland Kilometres"

Steved wrote:

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

--

Dave Peterson

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

Thankyou Gentleman.

"Steved" wrote:

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