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 vote200 views1 answer
Vba sheet visible
VBA
1 vote207 views1 answer
Extract the second word in a text in excel
VBA
0 vote227 views4 answers
Vgrive,deb
VBA
0 vote191 views1 answer
Vba paste values
VBA
1 vote186 views1 answer
Vba delete array element
VBA
0 vote227 views2 answers
Excel vba number format file size
VBA
0 vote136 views10 answers
Vba excel create event log
VBA
1 vote194 views2 answers
Vba remove first 2 characters from string
VBA
6 votes200 views1 answer
Excel vba check if a string only contains letters
VBA
0 vote164 views1 answer
Vbide vbproject reference
VBA