Increasing/Decreasing the # of Cases

[wwbwb]

Good morning (here at least)

I have the following code which works

Sub reminder()
Dim dates As Date
dates = Date
  Select Case dates
  Case "10/31"
   MsgBox "happy halloween"
  Case "11/1"
   MsgBox "day after halloween"
  Case "11/4"
   MsgBox "Today is the 4th"
  End Select
End Sub

What I have is a sheet("Reminders") that in col A I have dates and col B I have the reminder. What I want is for the above macro to look and adjust to the number of dates (cases) on the Reminders sheet. So as I add/remove dates from the Reminders sheet, the macros number of cases also adjusts. Any ideas or anyone have a better way of doing this?

 

[wwbwb]

Ok... I think I found a better way. It seems to work so far...

Sub reminder2()
Dim dates As Date
Dim lastrow As Long

With Sheets("Reminders")
dates = Date
lastrow = Range("a65536").End(xlUp).Row
For Each c In Range("a2:a" & lastrow)
If c = dates Then
MsgBox c.Offset(0, 1), , "Reminder"
End If
Next c
End With
End Sub