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.