Esto es lo que necesitas:
Private Sub Worksheet_Change(ByVal Target As Range)
Dim OlApp As Object
Dim NewMail As Object
Dim mail As String
If Target.Count > 1 Then Exit Sub
If Not Intersect(Target, Range("A:C")) Is Nothing Then
smail = Cells(Target.Row, 6)
Set OlApp = CreateObject("Outlook.Application")
Set NewMail = OlApp.CreateItem(0)
With NewMail
.To = smail
.Subject = "El asunto del mail"
.Body = "El cuerpo del mail"
.Display
End With
Set NewMail = Nothing
End If
End Sub
Solo faltaría configurar que acción se debe tomar si se modifica más de una celda a la vez. En este código, no se realiza ninguna acción tal como se ve en:
If Target.Count > 1 Then Exit Sub
pero podría ser que otra acción sea más adecuada
Por último, comentarte que cuando preguntes, intentes dar el máximo de información posible, así se evita trabajos dobles
Recuerda poner la macro en la hoja