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

3 votes211 views1 answer
Extract the nth word from a text string
VBA
0 vote199 views1 answer
Test if form is open vb
VBA
25 votes486 views2 answers
Excel vba folder exist
VBA
0 vote212 views1 answer
Vba apostrophe chr
VBA
0 vote219 views1 answer
Freeze panes vba
VBA
0 vote202 views2 answers
Excel vba close without saving
VBA
8 votes474 views1 answer
Vba make a short integer from two bytes
VBA
12 votes469 views1 answer
Excel vba write string to text file
VBA
0 vote202 views1 answer
Vbnet check if number is even or odd
VBA
0 vote219 views1 answer
Vbscript check if string contains
VBA