===================================
Sub Naveen2()
If Range("A1") 20 Then
ActiveWorkbook.SendMail Recipients:=Range("B1")
End If
End Sub
===================================

*** Please do rate ***

" wrote:

Hi all,

I need a macro to send the amail to the user mentioned in the excel
sheet, if the value is true in the cell. Eg: A120 then send the mail
to a person mentioned in the Cell B2.