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

18 votes398 views3 answers
Excel-vba make integer
VBA
0 vote229 views1 answer
How to get the value of optionbutton in vba
VBA
-1 vote216 views1 answer
For i in range vba
VBA
0 vote222 views1 answer
Vba len variant
VBA
1 vote231 views1 answer
Excel vba last row of range
VBA
1 vote216 views1 answer
Vba delete array element
VBA
0 vote247 views1 answer
Sendkeys vba selenium
VBA
0 vote222 views1 answer
Dynamic array vba
VBA
1 vote217 views1 answer
Vba reverse string
VBA
0 vote277 views2 answers
Checking and changing system volume vb.net
VBA