I have a macro that will pull all of the calendar items from my outlook and manipulate them and drop them into an excel spreadsheet. It works flawlessly. I have an internet calendar that I have pulled into my outlook as well. I'd like to pull both in at the same time before I sort and restrict them.

This works:
Set olNS = olApp.GetNamespace("MAPI")
Set myCalItems = olNS.GetDefaultFolder(olFolderCalendar).Items
This works:
Set olNS = olApp.GetNamespace("MAPI")
Set myCalItems = olNS.Folders("Internet Calendars").Folders("CCC").Items
I just don't know how to pull both or pull one and append it with the other.

Thanks.