Hi,

I made a macro (O 2003), wich changes to a public calendar folder and opens
a group calendar connected to this calendar via SendKeys.

On my machine that's working fine even if I am in an email or contacts
folder.

On my clients machines the macro overhauls itself and the menubar for the
calendar is not yet available when I trigger SendKeys.

************** CODE ****************
Function OpenGroupCalendar(strGTP As String)
Dim ALL_VAR As OBJECT_XY

Set myOlApp = CreateObject("Outlook.Application")
Set myNameSpace = myOlApp.GetNamespace("MAPI")

Set myFolder = myNameSpace.Folders("Public Folder").Folders("All Public
Folders").Folders("CompanyXY").Folders("CalendarAc counting")


Set myExplorer = myOlApp.ActiveExplorer
Set myExplorer.CurrentFolder = myFolder

Set cbb = ActiveExplorer.CommandBars.FindControl(, 7002)
SendKeys "%ö"
If Not cbb Is Nothing Then cbb.Execute

Set ALL_VAR = Nothing
End Function
************ END OF CODE **************

Thank you
Frank