Поиск среди дат по текущему месяцу

Sub Анализ_истечения_СроковГодности ()
Dim i As String, mon As String
Dim mydate As Long, D As Date
mydate = Date
mydate = DatePart("m", Now) ' Текущая дата
MsgBox mydate
 
D = Sheets("ЖУ_СО").Range("F5") 'Дата окончания срока годности реактива
mon = Sheets("ЖУ_СО").Range("G5") 'Срок хранения в месяцах, формат ячейки числовой.
i = DateAdd("m", m, D) 'функция добавления к текущей дате срока хранения
Range("T5") = i
 
Dim X As Range: Set X = Лист11.Range("t4:t10000").Find(mydate)
 If X Is Nothing Then    'В этом месяце списывать реактивы не нужно!
        msg = "Нет реактивов, у которых выходит срок годности в этом месяце!"
        MsgBox msg
    Else
           r = X.Row
           n = Sheets("ЖУ_СО").Cells(r, 2)
        MsgBox "Вышел срок годности у " & n & " строка № " & r
        'Сделать подсветку строк
        
    End If
End Sub

If Month(Cells(i, j)) = Month(Date) Then ...

DateDelimiter = Mid(Format(Date, "General Date"), 3, 1)
ed = Array(31, 28, 31, 30, 31, 30, 31, 31, 30, 31, 30, 31)  'Последнее число месяца
m = Month(Date)  'Текущий месяц числом
y = Year(Date)  'Текущий год
If m = 2 And (y Mod 4) <> 0 Then
 td = CStr(ed(m - 1))
Else
 td = "29"  'Високосный год
End If
If m < 10 Then tm = "0" & CStr(m) Else tm = CStr(m)  'Месяц прописью (01, 02 ... 12)
tdt = td & DateDelimiter & tm & DateDelimiter & CStr(y)  'Дата последнего дня текущего месяца прописью
If D < CDate(tdt) Then Call MsgBox("Срок годности вышел", vbOKOnly, "Упс ...")