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 vote225 views1 answer
Vbnet cycle through charaters in string
VBA
0 vote211 views1 answer
Move bindingnavigator vb
VBA
0 vote203 views1 answer
How to set location and size of new from vb
VBA
0 vote221 views2 answers
Excel vba protect cells with formula
VBA
0 vote211 views1 answer
Excel named range sum
VBA
0 vote232 views1 answer
Delete all controls in an area vb
VBA
0 vote206 views1 answer
Excel vba clear filter
VBA
3 votes208 views1 answer
Excel vba last row in range
VBA
0 vote219 views1 answer
Vba check if class implements interface
VBA
3 votes228 views1 answer
Vba continue for each loop
VBA