Veja se é isto o que quer, não tenho como baixar planilha de drivers externos.

Private Sub Workbook_Open()

Planilha1.Select

Dim vr, vs As Variant
Dim sDiferenca

'data atual
vs = Date

'conta as linhas da coluna Q
Rng = Range("M" & Rows.Count).End(xlUp).Row

'numero três é o numero da linha que começa os dados
For I = 3 To Rng Step 1

    vr = Cells(I, 13).Value
    
    'Calculamos a diferença entre a data atual e a da coluna
    sDiferenca = vs - vr
    
    'Se a diferença estiver no limite de 5 dias
    If sDiferenca >= 5 And sDiferenca <= 5 Then
        
        MsgBox "Temos vencimentos próximo: " & vr, vbInformation, "COMPANHIA LTDA"
    
    End If

Next I

End Sub

[]s