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 vote147 views1 answer
Loop through lines in text file vb net
VBA
3 votes160 views1 answer
Vba continue for each loop
VBA
1 vote148 views1 answer
Add a index column power bi
VBA
0 vote153 views1 answer
Excel vba assign shortcut key to button
VBA
6 votes152 views1 answer
Excel vba check if a string only contains alpha characters
VBA
1 vote155 views1 answer
How to put a gridpain in a vbox
VBA
8 votes200 views1 answer
Excel vba make word
VBA
0 vote165 views2 answers
Excel vba protect cells with formula
VBA
0 vote157 views1 answer
Vba find sub dictionary
VBA
2 votes144 views2 answers
Excel vba copy values range to another range
VBA