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 vote217 views1 answer
Vba compile error object required
VBA
2 votes226 views1 answer
Date format for ms chart vb.net
VBA
4 votes175 views2 answers
Vba last row
VBA
0 vote216 views1 answer
Vbnet get file name from path
VBA
1 vote232 views1 answer
Vbscript convert ascii code to character
VBA
0 vote225 views1 answer
Vbnet check if string is only symbols
VBA
0 vote239 views1 answer
Returns an array from function vba
VBA
0 vote232 views1 answer
Telephon call in vba
VBA
0 vote232 views1 answer
Vba file chooser
VBA
0 vote232 views1 answer
Windows Presentation Foundation dark title bar
VBA