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 vote261 views1 answer
Priavte sub with multiple handels find sneder
VBA
0 vote260 views1 answer
Return na vba
VBA
1 vote256 views1 answer
Sort using vba
VBA
5 votes239 views1 answer
Xl vba double quotes in string literal
VBA
1 vote185 views1 answer
Vba Remove Case Sensitivity
VBA
1 vote240 views1 answer
Add a index column power bi
VBA
0 vote250 views1 answer
Vba string
VBA
0 vote270 views1 answer
Vbnet check if string is only numbers
VBA
0 vote240 views2 answers
Get excel file from email attachment in vba
VBA
0 vote245 views1 answer
Vba listbox remove all items
VBA