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

4 votes242 views1 answer
Vba create directory
VBA
0 vote226 views1 answer
Vba argument is set
VBA
0 vote253 views1 answer
Vba range clear formatting
VBA
0 vote253 views1 answer
Vba extract filename from path
VBA
0 vote243 views1 answer
Vbnet find highest value in chart
VBA
0 vote263 views1 answer
Vba search string position
VBA
5 votes270 views1 answer
Excel vba low word from Long Integer
VBA
1 vote283 views1 answer
Perform http request in vb.net
VBA
1 vote248 views1 answer
Excel vba array remove first
VBA
0 vote234 views1 answer
Vba format currency
VBA