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