Как добавить этот код для указания c ячеек в диапазоне?

Question

У меня есть этот код, который я пытаюсь заставить msgbox появиться через 5 минут, если ячейка не имеет значения, но также нужно, чтобы он прекратил работу, как только та же ячейка получит значение. а затем таймер снова запускается для следующей ячейки et c ...

Как мне добавить все это в диапазон B4: B168 и указать для каждой ячейки? Могу ли я использовать For Each и In, а затем Next cell или что-то в этом роде?

Это на моем основном рабочем листе

Private Sub Worksheet_Selectionchange()
   count = 1
     Call StartTimer
End Sub

И это в модуле

Option Explicit

Public runwhen As Double
Public count As Integer

Sub TheSub()
MsgBox "Have you scanned?"
count = count + 1
Call StartTimer
End Sub

Sub StartTimer()
If count <> 1 Then
    runwhen = Now + TimeSerial(0, 5, 0)
    Application.OnTime runwhen, "TheSub", , False
End If
End Sub