My macro runs to check a spreadhseet for certain values and produce an email.
This works fine, but for example if 4 passwords are due to expire the email
will be produced 4 times for each system.

Is there a line i need to insert to say continue onto the next cell instead
of starting over?

See for example
http://www.rondebruin.nl/mail/folder3/message.htm

And click on the link on the page in this line
If you have duplicate addresses in the column check out this example.


--

Regards Ron de Bruin
http://www.rondebruin.nl/tips.htm


"Dan Wood" wrote in message ...
My macro runs to check a spreadhseet for certain values and produce an email.
This works fine, but for example if 4 passwords are due to expire the email
will be produced 4 times for each system.

Is there a line i need to insert to say continue onto the next cell instead
of starting over?

This is my current code:-

Sub CheckDay()
Application.OnTime TimeValue("14:59:00"), "CheckDay"
For Each c In Range("D7:D30")
If c.value = 0 Then
Call SendEmail
End If
Next
End Sub


I dont really understand the example. Im not good with Macros.

"Ron de Bruin" wrote:

See for example
http://www.rondebruin.nl/mail/folder3/message.htm

And click on the link on the page in this line
If you have duplicate addresses in the column check out this example.


--

Regards Ron de Bruin
http://www.rondebruin.nl/tips.htm


"Dan Wood" wrote in message ...
My macro runs to check a spreadhseet for certain values and produce an email.
This works fine, but for example if 4 passwords are due to expire the email
will be produced 4 times for each system.

Is there a line i need to insert to say continue onto the next cell instead
of starting over?
.