Why not just use Conditional Formatting without VBA

Just use a formula of

=ISNUMBER(MATCH(D3,holiday_list,0))

--
HTH

Bob

(there's no email, no snail mail, but somewhere should be gmail in my addy)

"Memento" wrote in message
...
Hello Guys,

I Have dates in the range D3:D369, from 1 jan to 31 dec (in that format).
Now I want to highlight the holidays in that range, but i'm having
difficulties with that.
I've created a collection, en i'm trying to use a For Each... Next to loop
through the range.

I also want this procedure to start automatically when i open up the
workbook, so in module 1 this doesn't seem to work, and I have no idea
where
en how i should get this done...

What i've tried:

Sub Toef()
Dim hCollection As New Collection
Dim newyear, easter, daym, ascension, ... As String
Dim DateRange As Date
Dim allSheets As Worksheets
DateRange = allSheets.range("D3:D369").Select
newyear= "1 jan"
easter= "16 apr"
daym= "1 may"
ascension= "24 mei"
...
hCollection.Add (newyear)
hCollection.Add (easter)
hCollection.Add (daym)
hCollection.Add (ascension)
...

For Each DateRange In hCollection
DateRange.Item.Color = RGB(0, 255, 0)
Next DateRange.Item
End Sub

Thanks in advance guys,

Memento