comparing commandbars

Can someone tell me why this doesn't work?

Sub mySub(cbSelected as Commandbar)
    Dim cb as Commandbar

    For Each cb in Application.CommandBars
        If cb is cbSelected Then
            'code                             'Never gets here
        End If
    Next cb
End Sub

but this does work

Sub mySub(cbSelected as Commandbar)
    Dim sName as String
    Dim cb as Commandbar
    Dim s as String
  
    sName = cbSelected.Name
    For Each cb in Application.CommandBars
        s = cb.Name
        If s = sName Then
            'code
        End If
    Next cb
End Sub

The comparitive IS is a balky one. I only use it to test if somthing IS Nothing. Otherwise, I test a unique property to see if two objects are the same.
like your name test.

By the way, why loop? Wouldn't this do the same thing?

Sub mySub(cbSelected as Commandbar)
    Dim sName as String
    Dim cb as Commandbar
    Dim s as String
  
    Set cb = cbSelected
    'code
 
End Sub

Hi Mike;

You're right. In this example, your code would be better.

But this isn't my real sub. I simplified it for the thread. In reality cbSelected is optional, and if no commandbar is passed then the sub works on all commandbars.

I use "is" to compare workbooks and worksheets and never had a problem. I would still like to know why it doesn't work with commandbars.