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 vote278 views1 answer
Vba code to add new column in table
VBA
0 vote299 views1 answer
Vba integer to double
VBA
0 vote282 views1 answer
Vba excel parser xml
VBA
3 votes275 views1 answer
Excel vba change format of cell
VBA
0 vote266 views1 answer
Label de tableau dans des label.text en VBA
VBA
0 vote279 views1 answer
Loop through all text boxes in a form vb
VBA
1 vote310 views1 answer
Excel vba convert text YYYYMMDD to date
VBA
0 vote254 views1 answer
Excel vba formatconditions range
VBA
22 votes391 views1 answer
Xlvba check for folder
VBA
0 vote267 views1 answer
Vba verticalalignment
VBA