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