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 vote194 views1 answer
Selecttoken em vbnet e json
VBA
12 votes235 views1 answer
Excel vba write string to text file
VBA
0 vote185 views1 answer
For each item in folder outlook vba
VBA
1 vote179 views1 answer
How to INPUT text in shape with enter and spacein vba
VBA
4 votes187 views2 answers
Excel vba last column with data
VBA
5 votes188 views1 answer
Excel vba get user selected range
VBA
-1 vote187 views2 answers
Excel vba delete empty rows
VBA
1 vote195 views1 answer
Vba login website
VBA
0 vote183 views1 answer
Excel vba clear filter
VBA
3 votes174 views1 answer
Vba request json
VBA