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 vote172 views1 answer
Vba leading zeros in string
VBA
4 votes188 views1 answer
Excel vba Imitating the "IN" operator from python
VBA
0 vote175 views1 answer
Vb net dgv doesn't keep currency format
VBA
25 votes356 views3 answers
String to date vb
VBA
5 votes188 views1 answer
Excel vba right word from Long Integer
VBA
0 vote190 views1 answer
Find database connection string vb
VBA
1 vote179 views1 answer
Random number generator vb.net
VBA
3 votes193 views1 answer
Excel insert blank row for value change in column
VBA
2 votes179 views1 answer
Excel vba check if string entirely numeric
VBA
5 votes192 views1 answer
Excel vba highlight cells using the hex color value within the cells
VBA