Hey guys could really use some help!
I am having trouble finding a formula to calculate the second business day of the month. I need this for the rest of my code. The closest thing I found is:
Private Sub Workbook_Open()
Dim lngEoM As Long
lngEoM = Date-Day(Date)
If Date = lngEOM + Choose(Weekday(lngEoM,vbMonday),0,0,0,0,0,2,1) Then
MsgBox "It's the first day of the month"
End If
End Sub
How can I change this to the second day?
I was hoping I could get the value of this date so I can use it.
Thanks to anyone who might be able to help!
I am having trouble finding a formula to calculate the second business day of the month. I need this for the rest of my code. The closest thing I found is:
Private Sub Workbook_Open()
Dim lngEoM As Long
lngEoM = Date-Day(Date)
If Date = lngEOM + Choose(Weekday(lngEoM,vbMonday),0,0,0,0,0,2,1) Then
MsgBox "It's the first day of the month"
End If
End Sub
How can I change this to the second day?
I was hoping I could get the value of this date so I can use it.
Thanks to anyone who might be able to help!