Run-Time Error 13 type mismatch

My code here works on 2 of my laptops but when I run it on my 3rd machine. I get a runtime error 13 - type mismatch. The debugger highlights the "Next olApt" line. Thoughts?

Please Login or Register  to view this content.

Originally Posted by JieJenn

Try change Sheets("Outlook").Range("O2").Text to Sheets("Outlook").Range("O2").Value see if that works.

That was the first thing i tried, but changing it to value still gets me the same error????

Originally Posted by JieJenn

Try change Sheets("Outlook").Range("O2").Text to Sheets("Outlook").Range("O2").Value see if that works.

That was the first thing i tried, but changing it to value still gets me the same error????

Originally Posted by Norie

I think the problem is because you are deleting olApt.

Try this.

Please Login or Register  to view this content.

tried this and the good news is the appointment was removed from my calendar. previously the code did not delete any appointments but i still get the same runtime error. this time the debugger highlights the row "Set OlApt = OlFldr.Items(i)

Norie, That did the trick. i declared olApt as an object and it worked. It works for both with my original code for each and the for I you previously recommended.

JieJenn, i also included an error handler. (better safe than sorry)

here is what the final code looks like

Please Login or Register  to view this content.