help with VBA conditional notification emails

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