Outlook public calender through excel

[ccoleman]

Thanks to Norie I've got it mostly figured out more or less using

Sub Test() 
Dim myOlApp As Outlook.Application 
Dim myItem As Outlook.AppointmentItem 

    Set myOlApp = CreateObject("Outlook.Application") 
    Set myItem = myOlApp.CreateItem(olAppointmentItem) 
            
    myItem.Subject = "My subject" 
    myItem.Body = "My new all day appointment" 
    myItem.AllDayEvent = True 
    myItem.Start = Date 
    myItem.Save 
End Sub

the only problem is that actually updates the personal calender of the person logged in at the time, I can update anybodies personal calender using the login feature but what about a public calender? I have a public calender that many users share called CurrSchedule, how can I use this to update this calender.