Excel VBA for loop condition

Question

I would like to ask about the for loop in VBA, I have the script below to remind ("remind" is a sub function) me if current date is CheckDate1,2,3,4,5,6... I would like to ask if I need to add more date, can I use a for loop to contain all the CheckDate(s) instead of adding more ElseIf function?

Sorry for my poor English and Thanks very much!

Dim dtmMyDate As Date

Const CheckDate1 = #1/9/2018#
Const CheckDate2 = #1/11/2018#
Const CheckDate3 = #1/16/2018#
Const CheckDate4 = #1/18/2018#
Const CheckDate5 = #1/23/2018#
Const CheckDate6 = #1/25/2018#

dtmMyDate = DateSerial(Year(Now()), Month(Now()), Day(Now()))
If dtmMyDate = CheckDate1 Then
    Remind
ElseIf dtmMyDate = CheckDate2 Then
    Remind
ElseIf dtmMyDate = CheckDate3 Then
    Remind
ElseIf dtmMyDate = CheckDate4 Then
    Remind
ElseIf dtmMyDate = CheckDate5 Then
    Remind
ElseIf dtmMyDate = CheckDate6 Then
    Remind
Else
    NormalCheck
End If

Excel VBA for loop condition

1 Answers