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 vote234 views1 answer
Vbnet click on dgv cells
VBA
0 vote211 views1 answer
Vb check if row has column
VBA
0 vote234 views2 answers
Excel vba protect cells with formula
VBA
0 vote232 views1 answer
Open file dialog in vb.net
VBA
0 vote221 views1 answer
Search in richtextbox vb.net
VBA
0 vote263 views1 answer
Vba change active sheet
VBA
0 vote213 views1 answer
Vb net show lines for all axis labels in chart
VBA
1 vote229 views1 answer
If inputbox cancel vba
VBA
0 vote244 views1 answer
Vbscript Trim
VBA
0 vote225 views1 answer
VBA OR vb6 find OR replace string from the end
VBA