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

7 votes186 views1 answer
Excerl vba array to range
VBA
3 votes166 views1 answer
Excel vba make long from two shorts
VBA
0 vote174 views1 answer
Change form background image vb
VBA
3 votes179 views1 answer
Vba double quote
VBA
2 votes163 views1 answer
Excel vba extract file name
VBA
0 vote162 views1 answer
How to use VBA to add new record in MS Access?
VBA
0 vote162 views1 answer
Hello world vb.net
VBA
0 vote186 views1 answer
Excel web scraping
VBA
0 vote177 views1 answer
Vba keep command window open
VBA
0 vote178 views1 answer
Programmatically copy data from one workshet to another excel
VBA