1) Stops and resets timer
2) Checks for expirations
3) generate and sends the email
4) starts the timer again

In this case the workbook can remain open and the code can run continously, now as i have not tested it thoroughly i cannot gurantee it will work without crashing.. This is something you will have to test.

NOTE: For the timer to work, it needs to enter the seconds into a worksheet iv chosen sheet2.range(“B3”)

This is very important as without this it cannot check to see how many seconds have lapsed. In the below example it checks for 10 seconds before doing the check. You can change this to wherever duration you want, but for testing purposes make this a minute or so

In sub NextTick() change

If Sheet2.Range("B3").Text >= "00:00:10" Then

to suit

Paste following in module 1

Dim uRange
Dim lRange
Dim BCell As Range
Dim EmailString As String

Public Sub GetExpirations()
        
    Set uRange = Sheet1.Range("C2")
    Set lRange = Sheet1.Range("C" & Rows.Count).End(xlUp)
    EmailString = Empty
    
    For Each BCell In Range(uRange, lRange)
        
        If BCell <= 3 Then
                    
            EmailString = EmailString & BCell.Offset(0, -2) & " is due to expire in " & BCell & " days" & vbCrLf
            
        End If
    
    Next BCell
    
    SendMail EmailString
    
End Sub

Sub SendMail(iBody As String)
    
    Dim OutApp As Object
    Dim OutMail As Object
    Dim strbody As String

'If ActiveWorkbook.Saved = True Then

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

    strbody = iBody

    On Error Resume Next
    With OutMail
        .To = "Someone@somewhere.com"
        .CC = ""
        .BCC = ""
        .Subject = "Services due to expire soon"
        .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 If
End Sub

Paste the following in Sheet1

Dim StopTimer           As Boolean
Dim SchdTime            As Date
Dim Etime               As Date
Const OneSec            As Date = 1 / 86400#

Private Sub ResetBtn_Click()
    StopTimer = True
    Etime = 0
    Sheet2.Range("B3").Value = "00:00:00"
End Sub

Private Sub StartBtn_Click()
   StopTimer = False
   SchdTime = Now()
   Sheet2.Range("B3").Value = Format(Etime, "hh:mm:ss")
   Application.OnTime SchdTime + OneSec, "Sheet1.NextTick"
End Sub

Private Sub StopBtn_Click()
    StopTimer = True
    Beep
End Sub

Sub NextTick()
   If StopTimer Then
      'Don't reschedule update
   Else
   
    If Sheet2.Range("B3").Text >= "00:00:10" Then
        Debug.Print Now()
        StopBtn_Click
        ResetBtn_Click
        GetExpirations
        StartBtn_Click
    End If
        
    Sheet2.Range("B3").Value = Format(Etime, "hh:mm:ss")
    SchdTime = SchdTime + OneSec
    Application.OnTime SchdTime, "Sheet1.NextTick"
    Etime = Etime + OneSec
           
   End If
End Sub

Both those messages are generated by the monitor itself, not your operating system. You probably will get the first message when the video cable is not connected at all and you then power on the monitor, after a few seconds. The second message indicates the settings used for the monitor in the operating system are not supported by the monitor.
…….

If the monitor works fine with another computer, and if your video is fine while booting BEFORE Windows is supposed to load, you probably need to re-set the Monitor type.

For 2000 or XP…
See response #9 here:
https://computing.net/answers/ha…

starting at….
Boot into Enable VGA mode.

Note – that’s missing this –

Remove any bootable CDs or DVDs you have in drives.
Press F8 repeatedly while booting, don’t hold down the key, starting very early in the boot.
When the Windows boot choices menu appears, choose Enable VGA mode.
……..

If the monitor works fine with another computer, and if you have NO video at all while booting, something else is wrong.

Some computers have both onboard video – a video adapter built into the mboard – and video from a card installed in a mboard slot.

In most cases, installing a PCI-E X16 or an AGP card in a mboard slot automatically disables the onboard video. If you have the monitor plugged into a video port for the onboard video when the card is plugged in, there is no video at all from the onboard video port.

In the case of a mboard that has onboard video and also has Hybrid CrossfireX support (AMD main chipsets) , or Hybrid SLI support (NVidia main chipsets), or Hybrid Multimonitor support (Intel main chipsets), if you are using a video card in a PCI-E X16 slot, if the video chipset on the card in the slot is NOT one of the ones compatible with the Hybrid video feature, by default you will NOT get any video from the card in the PCI_E X16 slot, and the onboard video is still enabled. You must change at least one if not two settings in the bios Setup in order to get video from the card in the slot and disable the onboard video.

Other causes………..

– for any system –

– you’re experiencing ram error problems, which are almost always caused by the ram having a poor connection in it’s slot(s), or by the bios settings for the ram being incorrect, or by you using ram modules that are not 100% compatible with using them in the mboard or not compatible with being used along with other ram modules if you have more than one module and more than one part number of them.
While booting you may hear the normal one mboard beep, or no beeps, or a pattern of beeps that indicate a memory problem or no ram detected. .

– rarely
– the mboard has developed failing electrolytic capacitors
– the mboard is otherwise defective or damaged.

— for a desktop system

– you’re having power supply problems – the mboard is not booting all the way because of that – in that case you do not hear the normal one mboard beep while booting.

– for a laptop, if the laptop has been used a lot

– your AC adapter, main battery, or the jack on the laptop the AC adapter plugs into, or a small power related board inside the laptop, has a problem.

– the built in display’s backlight (CCFL) or the voltage inverter that supplies it with high voltage is in the process of failing or is dead, or there is at least one broken wire between the video adapter and the display, usually right where the wiring passes through the hinge area. Usually an external monitor will work fine in that case – there’s nothing wrong with the video adapter.

Use protection at the worksheet level to prevent changes and you shouldn’t have any problems linking to them.

If you must protect them at the workbook level, then you’ll need to open all workbooks with code that resides in the workbook that is trying to pull data from them.

Sub Open_Protected_File()
  Workbooks.Open Filename:= _
     "\\MyPath\Users\UserName\My Documents\MyFile.xlsm", Password:="Secret"

  Workbooks.Open Filename:= _
     "\\MyPath\Users\UserName\My Documents\MyOtherFile.xlsm", Password:="Secret"
End Sub

Click Here Before Posting Data or VBA Code —> How To Post Data or Code.