Excel - executar macro automaticamente

[entoaar]

Tenho uma planilha que ao clicar em determinada celula e acionar a macro ele executa com dados daquela linha, gostaria que alguém me ajudasse a fazer com que de acordo com o resultado da célula executaria a macro, exemplo quando na coluna tivesse a palavra concluído.

Se a macro abaixo:

Sub SendEMail()

Dim Email As String, Subj As String

Dim Msg As String, URL As String

Email = Cells(ActiveCell.Row, 10)

Subj = Cells(ActiveCell.Row, 4)

Msg = ""

Msg = Msg & "Senhor " & Cells(ActiveCell.Row, 1) & "," & vbCrLf & vbCrLf & "Here is some precanned text before the BODY info in the spreadsheet. " & vbCrLf & vbCrLf & Cells(ActiveCell.Row, 13) & vbCrLf & vbCrLf & " And here is some more precanned text in the macro AFTER the Body stuff."

'Replace spaces with %20 (hex)

Subj = Application.WorksheetFunction.Substitute(Subj, " ", "%20")

Msg = Application.WorksheetFunction.Substitute(Msg, " ", "%20")

'Replace carriage returns with %0D%0A (hex)

Msg = Application.WorksheetFunction.Substitute(Msg, vbCrLf, "%0D%0A")

'Create the URL

URL = "mailto:" & Email & "?subject=" & Subj & "&body=" & Msg

'Execute the URL (start the email client)

ShellExecute 0&, vbNullString, URL, vbNullString, vbNullString, vbNormalFocus

'Wait two seconds before sending keystrokes

Application.Wait (Now + TimeValue("0:00:02"))

Application.SendKeys "%r"

End Sub

[Márcio Rodrigues]

Olá entoaar

Veja se é por aí!!!!

http://www.sendspace.com/file/lenu0g

Márcio

[entoaar]

Márcio, Obrigado!

Mas eu queria usar este código, para enviar email, só que ele envia só a linha que está ativa, e eu quero usar a linha que estiver com a célula que estiver a palavra "concluído":(