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 vote120 views1 answer
Vb net show lines for all axis labels in chart
VBA
13 votes248 views2 answers
Vba write text file
VBA
0 vote120 views1 answer
VB Error Code BC30201
VBA
5 votes144 views1 answer
Excel vba get low byte from INTEGER
VBA
0 vote159 views1 answer
Excel vba add reference programmatically
VBA
0 vote125 views2 answers
Excel vba number format file size
VBA
8 votes139 views1 answer
Excel vba make integer
VBA
1 vote130 views1 answer
Excel vba array remove first
VBA
2 votes124 views1 answer
Vba file from path
VBA
0 vote132 views1 answer
Vb run command
VBA