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 vote297 views2 answers
Excel vba copy paste after last row
VBA
18 votes422 views2 answers
Vba make word from bytes
VBA
0 vote281 views1 answer
Get current url vb.net
VBA
0 vote288 views1 answer
Vba change named range address
VBA
0 vote270 views1 answer
Le contrôle SpinButton (Toupie)
VBA
0 vote283 views1 answer
Vba find sub dictionary
VBA
8 votes331 views1 answer
Excel vba make integer
VBA
0 vote277 views1 answer
Hello world vb.net
VBA
1 vote283 views2 answers
Vba string to date
VBA
5 votes274 views1 answer
Excel vba high word from Long Integer
VBA