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 vote123 views1 answer
Excel vba Column Name to Column Number
VBA
0 vote138 views1 answer
Excel vba named range exists
VBA
0 vote121 views1 answer
Check range is in another range vba
VBA
4 votes76 views2 answers
Vba last row
VBA
0 vote153 views1 answer
Find control with name vb
VBA
1 vote135 views1 answer
Excel date to unix timestamp
VBA
0 vote118 views1 answer
Vba len variant
VBA
0 vote119 views1 answer
Vba code to select image in sheet
VBA
0 vote123 views1 answer
Vbnet access System.InvalidOperationException: 'Update requires a valid UpdateCommand when passed DataRow collection with modified rows.'
VBA
0 vote127 views1 answer
Reference to a non-shared member requires an object reference
VBA