Need the Second Business Day of the Month

Hey guys really frustrated.

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!

Thanks a million!!!

ughh

So I need to use this with an access macro and I can't use the workday function...any ideas?

You are awesome!