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

3 votes311 views1 answer
Excel vba last row in range
VBA
0 vote332 views1 answer
How to use if condition in time vba
VBA
25 votes467 views2 answers
Excel vba folder exist
VBA
0 vote327 views2 answers
Excel vba protect cells with formula
VBA
0 vote354 views1 answer
Excel named range sum
VBA
1 vote364 views1 answer
Excel vba How to determine if a date falls on the weekend?
VBA
7 votes369 views1 answer
Excerl vba array to range
VBA
0 vote346 views1 answer
Excel vba disable screen update
VBA
2 votes315 views1 answer
Vba array contains
VBA
0 vote372 views1 answer
(SecurityProtocolType)3072 vb.net
VBA