GMayor, I copied the code you supplied and got an error that I don't know how to fix.

This is what my code looks like:
End Sub




Option Explicit

Sub Macro7()
'The Idea is to Find Weekdays, then find Holidays that are Weekdays
'Graham Mayor - Graham Mayor - Home Page - Last updated - 05 Jan 2021
Dim Count As Integer
Dim TestDay As Date
Dim sMessage As String
Dim vHolidays As Variant
Dim i As Integer, j As Integer
Dim oRng As Range
Dim dDate As DataObject

dDate As DataObject is highlighted in Blue and it says:
Compile Error
User-Defined Type not defined.

Where did I go wrong?