Excel vba first working day month

' Returns first working day of month (except public holidays)
Public Function FirstWorkingDayOfMonth(ByVal pDate As Date) As Date
    FirstWorkingDayOfMonth = CDate(Application.WorkDay(DateSerial(Year(Date), _
        Month(Date), 1), 0))
End Function

Public Sub TestMe()
    MsgBox FirstWorkingDayOfMonth(Date)
End Sub

Similar codes

0 vote134 views1 answer
Excel vba clear filter
VBA
3 votes136 views1 answer
Extract the nth word from a text string
VBA
2 votes135 views1 answer
Date format for ms chart vb.net
VBA
0 vote140 views1 answer
Switch pictures with buttons vb.net
VBA
0 vote141 views1 answer
Vba get application version
VBA
0 vote128 views1 answer
Le contrôle SpinButton (Toupie)
VBA
0 vote139 views1 answer
Vba find sub dictionary
VBA
0 vote158 views1 answer
Vba multiple optional arguments
VBA
0 vote141 views1 answer
Excel PasteSpecial Format:= can't find the argument
VBA
0 vote175 views1 answer
Set datetimepicker value to null vb
VBA