Run-Time Error '5': Invalid procedure call or argument

[akreidler]

The script above is inserted inside the sheet, while this is locatedd in ThisWorkbook

Option Explicit
Private Sub Workbook_Open()
    ' Check to see if to toolbars exist, if they do display the appropriate one for the sheet
    Dim sCommandBar As CommandBar
    Dim iCommandBarCount As Integer
    For Each sCommandBar In Application.CommandBars
        If (sCommandBar.Name = sToolBarTemplateActions) Or (sCommandBar.Name = sToolBarDataInputActions) Or _
            (sCommandBar.Name = sToolBarStagingAndSubmissionActions) Then
            iCommandBarCount = iCommandBarCount + 1
            Call recreateToolBar(sCommandBar.Name)
        End If
    Next sCommandBar
' If the commandbars don't exist then create them
    If iCommandBarCount = 0 Then
    Call createToolBar(sToolBarTemplateActions)
    Call createToolBar(sToolBarDataInputActions)
    Call createToolBar(sToolBarStagingAndSubmissionActions)
    End If
' Activate the appropriate toolbar
    Select Case ActiveSheet.Name
    Case sSheet3
        Application.CommandBars(sToolBarTemplateActions).Visible = True
    Case sSheet4
        Application.CommandBars(sToolBarDataInputActions).Visible = True
    Case sSheet5
        Application.CommandBars(sToolBarStagingAndSubmissionActions).Visible = True
    End Select
    ' Initialize btnProtocol
    Sheets(sSheet2).btnProtocol.Clear
    Sheets(sSheet2).btnProtocol.AddItem ("http")
    Sheets(sSheet2).btnProtocol.AddItem ("https")
    If Sheets(sSheet2).Range("rngProtocol").Value <> "" Then
    Sheets(sSheet2).btnProtocol.Value = Sheets(sSheet2).Range("rngProtocol").Value
    Sheets(sSheet2).Range("rngProtocol").Value = ""
    End If
' Populate the Action button
    Sheets(sSheet2).btnAction.Clear
    If Sheets(sSheet2).Range("rngAction").Value = "CREATE" Then
    Sheets(sSheet2).btnAction.AddItem ("CREATE")
    End If
    Sheets(sSheet2).btnAction.AddItem ("UPDATE")
    Sheets(sSheet2).btnAction.AddItem ("UPDATEDATA")
End Sub


Private Sub Workbook_BeforeClose(Cancel As Boolean)
    ' Close down the toolbars on exit
    Application.CommandBars(sToolBarTemplateActions).Visible = False
    Application.CommandBars(sToolBarDataInputActions).Visible = False
    Application.CommandBars(sToolBarStagingAndSubmissionActions).Visible = False
End Sub