Wookbook_Open Message Giving Count of Records not Closed for More than Specified Number of Days

[Gos-C]

Hi all,

I am trying to add a code so that when a user opens his/her workbook he/she gets a message with the number of records opened 30 days or more with a close date. The open date is in column C and the close date is in column AA.

I tried the following (which is not working):

Private Sub Workbook_Open()
'Sub Test_PastDueClose()
Dim cPast As Long, dRng As Range, cRng As Range
Set dRng = Sheets("LOG").Range("C4:C" & Cells(Rows.Count, 3).End(xlUp).Row)
Set cRng = Sheets("LOG").Range("AA4:AA" & Cells(Rows.Count, 27).End(xlUp).Row)
cPast = 0
For Each cell In dRng
If DateDiff("d", Now(), dRng) >= 30 Then
If cRng = "" Then
cPast = cPast + 1
End If
Next cell

MsgBox "Your log has " & cPast & " records that have past their scheduled close date.  They are highlight RED."

End Sub

Any help, please?

Thank you,
Gos-C