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 vote149 views1 answer
Switch pictures with buttons vb.net
VBA
0 vote149 views1 answer
Excel vba assign shortcut key to button
VBA
0 vote140 views1 answer
Excel vba formatconditions positive
VBA
0 vote146 views1 answer
Vba sheet hide unhide
VBA
0 vote159 views1 answer
Vbnet click on dgv cells
VBA
0 vote142 views1 answer
Vba border weight
VBA
5 votes163 views1 answer
Excel vba right word from Long Integer
VBA
0 vote143 views1 answer
How to extract a file from an ISO:
VBA
0 vote146 views1 answer
Enable macros on opening workbook vba
VBA
0 vote155 views1 answer
Supprimer la valeur de celule vba
VBA