Материал старения VBA

Question

Я работаю над созданием листа, чтобы нажать кнопку, чтобы проверить ячейку на дату истечения срока годности материала. Если материал актуален, никаких шагов не требуется. Если срок действия - день, когда кнопка была нажата, или в течение 3 или 14 дней, появится всплывающее окно с соответствующими предупреждениями об истечении срока действия. Вот код, который имеет далеко:

Public Sub CommandButton1_Click()

    If Sheets(2).Range("F4").Value = Date Then
        MsgBox (Sheets(1).Range("A4").Value)
    End If
    If Sheets(3).Range("F4").Value = Date Then
        MsgBox (Sheets(1).Range("A4").Value)
    End If


 End Sub

Я хочу добавить в диапазон (т.е. от F4 до F20), а также добавить код, чтобы получать оповещения на 3 и 14 дней.

Спасибо за помощь.