send email automatically when cells are filled-in

Hi All,

Is it possible if cells A1, A2 and A3 of sheet 1 filled that the code below runs automatically?

Sub Mail_small_Text_Outlook()
    Dim OutApp As Object
    Dim OutMail As Object
    Dim strbody As String

    Set OutApp = CreateObject("Outlook.Application")
    Set OutMail = OutApp.CreateItem(0)

    strbody = "Hi there" & vbNewLine & vbNewLine & _
              "This is line 1" & vbNewLine & _
              "This is line 2" & vbNewLine & _
              "This is line 3" & vbNewLine & _
              "This is line 4"

    On Error Resume Next
    With OutMail
        .To = "test@test.nl"
        .CC = ""
        .BCC = ""
        .Subject = "This is the Subject line"
        .Body = strbody
        'You can add a file like this
        '.Attachments.Add ("C:\test.txt")
        .Send   'or use .Display
    End With
    On Error GoTo 0

    Set OutMail = Nothing
    Set OutApp = Nothing
End Sub

thank you very much for the comments.

Greetings,

Danielle

Hi All,

I use now this code:

Private Sub Worksheet_Change(ByVal Target As Range)
  On Error Resume Next
  If Intersect(Target, Range("A3")) Is Nothing Then Exit Sub
  If Target = "" Then Exit Sub

' macro code

It works fine

Greetings,

Danielle