You are missing duplicate dates because a property of using collections
is that it is necessary to have unique keys for each item added to the
collection. If you have duplicate dates then you key assignments set
up duplicate keys.
You are not seeing this error because of the 'On Error Resume Next'
If you don't need the key to access the members of your collection then
you can eliminate this from your coding.
idate.Add Item:=ir, key:=CStr(ir)
becomes
idate.Add Item:=ir
HTH
--
bhofsetz
------------------------------------------------------------------------
bhofsetz's Profile:
http://www.excelforum.com/member.php...o&userid=18807
View this thread:
http://www.excelforum.com/showthread...hreadid=380191