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 vote215 views1 answer
System.Runtime.InteropServices.COMException: 'Call was rejected by callee. (Exception from HRESULT: 0x80010001
VBA
0 vote225 views1 answer
Vba sheet hide unhide
VBA
1 vote233 views1 answer
Excel vba Refreshing all pivot tables in workbook
VBA
0 vote218 views1 answer
Not allow form to be resized
VBA
1 vote209 views1 answer
Excel vba Populating a combobox on a userform from a range of cells
VBA
0 vote209 views1 answer
Vba change named range address
VBA
3 votes210 views1 answer
Excel vba get the workbook full file name with path
VBA
0 vote222 views1 answer
Vba keep command window open
VBA
1 vote206 views1 answer
Textbox find and replace vb
VBA
0 vote223 views1 answer
Add text to Shape VBA
VBA