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 vote318 views1 answer
Vba Remove Case Sensitivity
VBA
0 vote355 views1 answer
Vba timestamp -- milliseconds
VBA
1 vote364 views1 answer
What does vbs stand for
VBA
0 vote328 views1 answer
Putting marquee in vb.net
VBA
0 vote374 views1 answer
Vba registry settings
VBA
5 votes930 views1 answer
Vlookup vba
VBA
0 vote378 views1 answer
Set datetimepicker value to null vb
VBA
3 votes344 views1 answer
Vba make long from two shorts
VBA
0 vote348 views1 answer
Excel vba delete folder
VBA
0 vote375 views1 answer
Vbnet cycle through charaters in string
VBA