Hi Steve

Same answer

Add
If Sheets(Shname(N)).Range("B6") < "" Then
after For N = LBound(Shname) To UBound(Shname)

And one
End if
before Next N



--
Regards Ron de Bruin
http://www.rondebruin.nl


"Steved" wrote in message ...
Sorry Ron


Sub Mail_test()
Dim wb As Workbook
Dim strdate As String
Dim Shname As Variant
Dim Addr As Variant
Dim N As Integer

strdate = Format(Now, "dd-mm-yy hh-mm-ss")
Shname = Array("Summary", "City Depot (1)", "Roskill Depot (2)",
"Papakura Depot (3)", "Wiri Depot (4)", "Shore Depot (5)", "Orewa Depot (6)",
"Swanson Depot (7)", "Panmure Depot (8)", "Waiheke Depot (9)")
Addr = ", ",
", ",
", ",
", ",
", ")

Application.ScreenUpdating = False

For N = LBound(Shname) To UBound(Shname)
If Shname(N) = "Summary" Then
Sheets(Shname(N)).Copy
Else
Sheets(Array("Summary", Shname(N))).Copy
End If

Worksheets.Select
Cells.Copy
Cells.PasteSpecial xlPasteValues
Cells(1).Select
Worksheets(1).Select
Application.CutCopyMode = False

Set wb = ActiveWorkbook
If Shname(N) < "Summary" Then
Application.DisplayAlerts = False
wb.Sheets("Summary").Delete
Application.DisplayAlerts = True
End If

With wb
.SaveAs "C:/Audit Reports/" & Format(Now, "dd - mm - yy, hh - mm
- ss") & ".xls"
.SendMail Addr(N), "Audit Summary from Mr R.Stephens"
.Close False
End With
Next N
Application.ScreenUpdating = True
End Sub


"Ron de Bruin" wrote:

Hi Steve

Please post a link from a example page from my site the next time that looks like it.
I don't remember all the code I see<g

I believe you used this example ?
http://www.rondebruin.nl/mail/folder1/mail2.htm
Example 2

Try this with this check
If Sheets(Shname(N)).Range("B6") < "" Then


Sub Mail_test()
Dim wb As Workbook
Dim strdate As String
Dim Shname As Variant
Dim Addr As Variant
Dim N As Integer

strdate = Format(Now, "dd-mm-yy h-mm-ss")
Shname = Array("Sheet1", "Sheet2", "Sheet3", "Sheet4")
Addr = ", ", ", ")

Application.ScreenUpdating = False

For N = LBound(Shname) To UBound(Shname)
If Sheets(Shname(N)).Range("B6") < "" Then
Sheets(Shname(N)).Copy
Set wb = ActiveWorkbook
With wb
.SaveAs "Sheet " & Shname(N) _
& " " & strdate & ".xls"
.SendMail Addr(N), _
"This is the Subject line"
.ChangeFileAccess xlReadOnly
Kill .FullName
.Close False
End With
End If
Next N
Application.ScreenUpdating = True
End Sub


--
Regards Ron de Bruin
http://www.rondebruin.nl


"Steved" wrote in message ...
Hello Ron From Steved

Ron the file I emailed you last week.

Would you be so kind and have a look at it again.

Ok this is what I am asking and that is, take City (1) as an example
I have no values in cell B6 is it possible not to Email City (1) but email
the rest.

Thankyou.

"Ron de Bruin" wrote:

Which sub Steve ?
Can you post the link

--
Regards Ron de Bruin
http://www.rondebruin.nl


"Steved" wrote in message ...
Hello from Steved

Ok I have Ron's email program which emails to seperate accounts.

My question is if on Cell B6 the cell has no values in it, is their away I
can instruct the program not to send that particular worksheet.

I have 10 worksheets sometimes only 8 off them need to be emailed.

Thankyou.