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 vote223 views1 answer
Excel vba protect content
VBA
0 vote246 views2 answers
VB
VBA
0 vote234 views1 answer
Freeze panes vba
VBA
0 vote210 views1 answer
Vba declare 64-bit ptrsafe
VBA
12 votes274 views1 answer
Excel vba write string to text file
VBA
5 votes245 views1 answer
Excel vba low word from Long Integer
VBA
0 vote206 views1 answer
Add items to combobox vb.net
VBA
1 vote238 views1 answer
How to remove zeros in excel
VBA
0 vote192 views1 answer
Vbide vbproject reference
VBA
5 votes226 views1 answer
Excel formula how to create strings containing double quotes
VBA