Проверка наличия меню

Public Function MenuIsExists(sMenuName As String) As Boolean
'Проверка наличия меню (как элемента в коллекции .CommandBars ...)
'   ?MenuIsExists("TextBoxMenu")
'----------------------------------------------------------------------------------------
Dim vVal As Variant
On Error GoTo TableIsExists_Err
    vVal = Application.CommandBars(sMenuName).Type
    MenuIsExists = True
    Exit Function
           
TableIsExists_Err:
    Err.Clear
End Function