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 vote229 views1 answer
Excel vba send HTTP POST to server
VBA
0 vote237 views1 answer
Vbnet line chart showing extra space
VBA
1 vote227 views1 answer
How to put a gridpain in a vbox
VBA
1 vote235 views1 answer
Excel vba to lower case
VBA
0 vote216 views1 answer
Vba copy paste value only
VBA
0 vote230 views1 answer
Vba get workbook name
VBA
1 vote248 views1 answer
Sort using vba
VBA
0 vote231 views1 answer
Enable macros on opening workbook vba
VBA
3 votes224 views1 answer
Excel vba last row in range
VBA
0 vote273 views1 answer
Wpf dark title bar
VBA