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 vote261 views1 answer
If statement vdhl
VBA
8 votes256 views1 answer
Excel vba determine number of elements in a 2D array
VBA
4 votes239 views2 answers
Vba create folder if not exist
VBA
0 vote222 views1 answer
Vba pass named range to function
VBA
0 vote281 views1 answer
(SecurityProtocolType)3072 vb.net
VBA
0 vote228 views1 answer
Convert Seconds to HH:MM:SS in VB.Net
VBA
0 vote235 views1 answer
VBA Sort RossetaCode
VBA
7 votes234 views1 answer
Excerl vba array to range
VBA
0 vote249 views1 answer
Menus act like radio buttons vb.net
VBA
0 vote232 views2 answers
Do until loop vba
VBA