Macro to send two different mail when a cell reaches two different values.

[Frankito]

Hello.
Excuse me for my english.

I have necessity to use a specific Macro for to send two different automatic e-mail when a range of cells reaches two or more different provided values.

Now I used the Codes solution like Macro attached, composed by:

1. Private Sub Worksheet_Calculate()
2. Sub Mail_with_outlook1()

The macro above only allows to send a specific e-mail ( see Sub Code Sub Mail_with_outlook1 () ) to one of the addresses registered in the cells of column "AF".
This happens when the value of the corresponding cell of the range "AE10: AE104" will be equal to 1 (see MyLimit = 1).

I would like to complete the above macro so that enable the sending of a different e-mail to one of corresponding addresses registered in the column "AF".
This should happen when the value of any one cell of the range "AE: AE104" will be equal to 2 (MyLimit = 2).

I thank you very much and look forward to your kind reply.



Frankito M. Italy