VBA to exclude holidays on list of working days between two dates

armchairandy

Board Regular
Joined
Mar 27, 2012
Messages
53
Hi

I have a code to list all the workdays between two dates, works great. What I need is to add some code that will do the same thing, but ignore any holiday dates held in a seperate sheet "Holidays" as well as weekends.

Sub WorkingDays()


Dim FirstDate As Date
Dim LastDate As Date
Dim NextDate As Date


FirstDate = Range("A2").Value
LastDate = Range("A3").Value


NextDate = FirstDate
Range("C3").Select
'selection of columns within one row
Do Until NextDate > LastDate


ActiveCell.Value = NextDate
ActiveCell.Offset(1, 0).Select
NextDate = WorksheetFunction.WorkDay(NextDate, 1)


Loop
End Sub

Any help would be appreciated
 

Excel Facts

Create a Pivot Table on a Map
If your data has zip codes, postal codes, or city names, select the data and use Insert, 3D Map. (Found to right of chart icons).

Forum statistics

Threads
1,223,239
Messages
6,170,947
Members
452,368
Latest member
jayp2104

We've detected that you are using an adblocker.

We have a great community of people providing Excel help here, but the hosting costs are enormous. You can help keep this site running by allowing ads on MrExcel.com.
Allow Ads at MrExcel

Which adblocker are you using?

Disable AdBlock

Follow these easy steps to disable AdBlock

1)Click on the icon in the browser’s toolbar.
2)Click on the icon in the browser’s toolbar.
2)Click on the "Pause on this site" option.
Go back

Disable AdBlock Plus

Follow these easy steps to disable AdBlock Plus

1)Click on the icon in the browser’s toolbar.
2)Click on the toggle to disable it for "mrexcel.com".
Go back

Disable uBlock Origin

Follow these easy steps to disable uBlock Origin

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back

Disable uBlock

Follow these easy steps to disable uBlock

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back
Back
Top