Private Sub Workbook_Open()
     Dim sh As Worksheet
     Set sh = ThisWorkbook.Sheets("Сроки-платежи")
     lr = sh.Cells(Rows.Count, 11).End(xlUp).Row
     Dim arrDate, arrStat, arrTime() As Integer
     arrDate = sh.Range("j5:j" & lr)
     arrStat = sh.Range("k5:k" & lr)
     Dim j As Integer: j = 0
     For i = LBound(arrStat) To UBound(arrStat)
         If arrStat(i, 1) = "оплачивать" Then
             If arrDate(i, 1) - Date < 4 And arrDate(i, 1) - Date >= 0 Then
                 ReDim Preserve arrTime(j)
                 arrTime(j) = CInt(arrDate(i, 1) - Date)
                 j = j + 1
             End If
         End If
     Next i
     If (Not Not arrTime) <> 0 Then
         M = arrTime(0)
         For i = 1 To UBound(arrTime)
             If arrTime(i) < M Then M = arrTime(i)
         Next
         MsgBox "Оплачивать договора через " & M & " дней"
     End If
End Sub