Search the calendar for appointments in a time period

Question

I have a macro that filters calendar appointments by dates. I have used the code given by Microsoft Docs, but it does not work. I want to iterate the default calendare to find a