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

1 vote155 views1 answer
Textbox find and replace vb
VBA
0 vote166 views1 answer
Vba array of integers
VBA
0 vote172 views1 answer
Arq linux
VBA
0 vote173 views1 answer
Vba word open document read only
VBA
0 vote143 views1 answer
How to self delete a vbscript file
VBA
0 vote162 views1 answer
Send webhook vbscript
VBA
5 votes181 views1 answer
Excel vba tool to help with refactoring code
VBA
0 vote168 views1 answer
Selecttoken em vbnet e json
VBA
0 vote175 views1 answer
Vba keep command window open
VBA
0 vote164 views1 answer
Excel vba prevent saving workbook
VBA