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 vote156 views1 answer
Vba date to unix timestamp
VBA
0 vote151 views1 answer
Handling a click event anywhere inside a panel vb
VBA
22 votes286 views1 answer
Xlvba check for folder
VBA
0 vote159 views1 answer
Vba get application version
VBA
0 vote152 views1 answer
Vba border weight
VBA
0 vote150 views1 answer
Vbs exec hidden
VBA
0 vote166 views1 answer
Dynamically change drop down list visual basic
VBA
0 vote193 views1 answer
Set datetimepicker value to null vb
VBA
0 vote149 views1 answer
Afficher un message d'erreur vba
VBA
0 vote171 views1 answer
Excel filter by date not working vba
VBA