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

What is the last column in Excel?
Excel columns run from A to Z, AA to AZ, AAA to XFD. The last column is XFD.

Forum statistics

Threads
1,224,823
Messages
6,181,175
Members
453,021
Latest member
Justyna P

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