Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
Dim rngWatch As Range
Dim OutApp As Object
Dim OutMail As Object
'What cell do you care about?
Set rngWatch = Range("R26") '<-- Change cell to match your requirements
'What's the criteria?
If rngWatch.Value <> "" Then '<-- Change value number to match your requirements
Set OutApp = CreateObject("Outlook.Application")
Set OutMail = OutApp.CreateItem(0)
On Error Resume Next
With OutMail
.to = "YourEmailHere@example.com" '<-- Edit this email address to match your requirements
.CC = ""
.BCC = ""
.Subject = "This is the Subject line"
.Body = "Number has been reached"
'-- Using .Send auto-emails the message. You do not have an opportunity to review or edit prior to sending
'--- Using .Display gives you the opportunity to review and edit prior to sending
'.Send 'or use .Display
.Display
End With
On Error GoTo 0
Set OutMail = Nothing
Set OutApp = Nothing
End If
End Sub
Bookmarks