Expiring date with message box

[woobinhyul]

Good Morning to all!
I am new to excel VBA and my excel in office is 2010 version, may I ask a help to you guys about VBA.
Can someone teach me how to do a message box with all my expiring date, items that it will expire in a month before the expire date, and the message box will show until the day before it expires.
Hoping someone care to help. Thank you from Philippines.

 

[Skyybot]

In this example there is a Date value in cell A1 on Sheet1. A message will appear if that date is less than 30 days away. You should be able to build on that.

Sub chkDate()
Dim wb As Workbook, sht As Worksheet, rng As Range, cell As Range, d
Set wb = ThisWorkbook: Set sht = wb.Sheets(1)
Set rng = sht.Cells(1, 1)  'you can also use Set rng = sht.Range("A1")
Debug.Print Day(Now()) - Day(rng.Value)
d = Day(Now()) - rng.Value
If d < 30 Then
    MsgBox "Date is less than 30 days away.", vbInformation, "Expiration"
End If
End Sub