Public Sub SetupMenu()
Dim newMenu, newMenuItem
newMenu.Caption = "&Projects"
Set newMenuItem = newMenu.Controls.Add(Type:=msoControlButton)
newMenuItem.Caption = "&Open Project Log"
newMenuItem.OnAction = "Log"
With CommandBars("worksheet menu bar")
Set newMenu = .Controls.Add(Type:=msoControlPopup, before:=.Controls("window").Index, temporary:=True)
End With
End Sub