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 vote130 views1 answer
Vba html document reference
VBA
0 vote147 views1 answer
Vba round to 2 decimals
VBA
0 vote138 views1 answer
Vbnet check if string is only numbers
VBA
1 vote141 views1 answer
Excel vba last row of range
VBA
0 vote132 views1 answer
Excel vba disable keyboard input
VBA
0 vote148 views1 answer
Tester si une case est vide vba
VBA
0 vote167 views1 answer
Set datetimepicker value to null vb
VBA
1 vote130 views1 answer
Excel vba get column name from number
VBA
0 vote123 views1 answer
Vb.net round to 2 decimal places
VBA
0 vote139 views1 answer
Reset border color textbox vba
VBA