I have a macro that shoots me a reminder if today is Friday. Is it possible
to specify if today is the first weekday of the month?

Select Case Weekday(Date(),2) ' Monday=1, ... Sunday=7
Case 1
If Day(Date())<4 Then Call Alert() ' If Monday the 1st, 2nd or 3rd must
be 1st day of month
Case 2 To 5
If Day(Date())=1 Then Call Alert() ' Any other weekday, only if 1st of
month
End Select

Alert() would be a sub used to alert you
--
- K Dales


"StephanieH" wrote:

I have a macro that shoots me a reminder if today is Friday. Is it possible
to specify if today is the first weekday of the month?

Thanks K.



"K Dales" wrote:

Select Case Weekday(Date(),2) ' Monday=1, ... Sunday=7
Case 1
If Day(Date())<4 Then Call Alert() ' If Monday the 1st, 2nd or 3rd must
be 1st day of month
Case 2 To 5
If Day(Date())=1 Then Call Alert() ' Any other weekday, only if 1st of
month
End Select

Alert() would be a sub used to alert you
--
- K Dales


"StephanieH" wrote:

I have a macro that shoots me a reminder if today is Friday. Is it possible
to specify if today is the first weekday of the month?