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 vote298 views1 answer
Excel vba remove formatting from cell
VBA
0 vote302 views1 answer
Add text to combobox drop down vb
VBA
0 vote294 views1 answer
Vba change named range address
VBA
0 vote311 views4 answers
Jwt token vb.net validation
VBA
0 vote280 views1 answer
Excel PasteSpecial Format:= can't find the argument
VBA
0 vote338 views1 answer
Filesystemobject vba reference
VBA
0 vote270 views1 answer
Excel vba hide columns
VBA
0 vote297 views1 answer
Vba code for cutoff time
VBA
1 vote289 views1 answer
Vba refresh pivot table
VBA
0 vote291 views1 answer
Excel text to columns line break
VBA