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 vote300 views1 answer
Excel vba extract year
VBA
0 vote323 views1 answer
Rotate image by any angle vb.net
VBA
0 vote312 views2 answers
Vba remove line breaks
VBA
1 vote297 views1 answer
Vba declare api 64 bit 32 bit
VBA
0 vote327 views1 answer
Vba keep command window open
VBA
1 vote301 views1 answer
If inputbox cancel vba
VBA
2 votes298 views2 answers
Constructor vb.net
VBA
0 vote314 views1 answer
.net crash app
VBA
0 vote307 views1 answer
Select case vba
VBA
5 votes320 views1 answer
Excel vba highlight cells using the hex color value within the cells
VBA