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 vote162 views1 answer
System.Data.OleDb.OleDbException: 'No value given for one or more required parameters.'
VBA
0 vote189 views1 answer
Vba add spaces
VBA
0 vote175 views1 answer
Average vba
VBA
0 vote180 views1 answer
Set column width of datagridview vb.net
VBA
0 vote179 views1 answer
Date as number vb
VBA
0 vote175 views1 answer
Afficher un message d'erreur vba
VBA
3 votes180 views1 answer
Vba make long from two words
VBA
6 votes177 views1 answer
Excel vba isalpha
VBA
1 vote189 views1 answer
Set font for ms chart vb.net
VBA
1 vote186 views1 answer
Extract the second word in a text in excel
VBA