Hi,
I have created a command bar in the WorkSheet menu Bar. I am facing difficulty to call a projecedure from the commnad bar . I have created the menu bar in the 'Theworkbook' under Sub Workbook_Open() event. My procedure which need to call while click on 'Setup Working Directory' is
Setup() which is there in the sheet1. While clicking 'Setup Working Directory' it always throws a error message as 'Macro 'Sheet1!Setup' cannot be Found' .

However If I put this procedure under Module , it's works fine ... Could somebody help me to resolve this ? Your early response is really appreciated.

Please see the code below

Sub Workbook_Open()
Dim myCustom As CommandBarControl
Dim cbcMenuBar As CommandBar

Dim AutoRequests As Workbook
Dim requestsheet As Worksheet

Set AutoRequests = Workbooks("Auto-Requests.xls")
Set requestsheet = AutoRequests.Worksheets("Setup")
Set cbcMenuBar = Application.CommandBars("Worksheet Menu Bar")


Set myCustom = cbcMenuBar.Controls.Add(Type:=msoControlPopup, before:=iHelpIndex)

With myCustom
.Caption = "&Auto Reports"


With .Controls.Add(Type:=msoControlButton)
.Caption = "&Delete Reports" 'Caption on Menu
.OnAction = requestsheet.Name & "RemoveReports"
.FaceId = 3096 'Icon on menu

End With
With .Controls.Add(Type:=msoControlButton)
.Caption = "&Setup Working Directory" 'Caption on Menu
.OnAction = requestsheet.Name & "!SetupProcedure"
.BeginGroup = True 'Separtor line above
.FaceId = 2556 'Menu Icon
End With

End With

End Sub

Joe