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

1 vote319 views1 answer
Excel vba first row in range
VBA
0 vote324 views1 answer
For each item in folder outlook vba
VBA
0 vote333 views1 answer
Excel last used row
VBA
1 vote315 views1 answer
Vba delete file
VBA
0 vote321 views1 answer
Enable macros on opening workbook vba
VBA
0 vote301 views1 answer
Excel vba disable alerts
VBA
0 vote322 views1 answer
Excel vba Column Name to Column Number
VBA
22 votes464 views1 answer
Excel vba check if directory exists
VBA
0 vote328 views1 answer
VBA is form loaded
VBA
-1 vote342 views1 answer
Code for reading letters only in vb 6
VBA