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 vote326 views1 answer
Vbs write file
VBA
0 vote384 views1 answer
Programmatically copy data from one workshet to another excel
VBA
0 vote342 views1 answer
Thread sleep vb
VBA
0 vote342 views1 answer
Search for text in every worksheet excel visual basic
VBA
0 vote319 views1 answer
Vba add month to date
VBA
4 votes338 views2 answers
Excel vba last column with data
VBA
0 vote336 views1 answer
Vba sort multiple columns
VBA
3 votes331 views1 answer
Vba make long from two shorts
VBA
1 vote363 views1 answer
Vb.net get name by Cell Click
VBA
4 votes331 views1 answer
Excel vba Imitating the "IN" operator from python
VBA