Creating calendar item in non-default calendar

Hi All

It's been a while since I have posted here but I am completely stumped with this one and looking for help.

I have the following code to create an appointment in Outlook using data froma worksheet:

Please Login or Register  to view this content.

This is fine for creating a calendar item in the default calendar however I am trying to create (or create then move) the appointment in a shared calendar.

I have found several examples however I can't seem to get any of them to work with my code. Any help would be greatly appreciated.

Thanks
Mark