I have built a menu that builds one custom bar and then I static build a second one in the code. The problem is the menu built one will not show, but it is built. I think the problem is in this code (lines 8 thru 13) but I can't figure it out ...<pre>On Error Resume Next
For Each CB In Application.CommandBars
If CB.Type = msoBarTypeNormal Then
If CB.Visible = True Then
CBNum = CBNum + 1
With Sheet1
.Cells(CBNum, 1) = CB.Name
If CB.Name = "AC Status" Then
CB.Visible = True
End If
If CB.Name = "Formatting2" Then
CB.Visible = True
Else
CB.Visible = False
End If
End With
End If
End If
Next CB</pre>
This message was edited by em on 2003-02-09 17:23
For Each CB In Application.CommandBars
If CB.Type = msoBarTypeNormal Then
If CB.Visible = True Then
CBNum = CBNum + 1
With Sheet1
.Cells(CBNum, 1) = CB.Name
If CB.Name = "AC Status" Then
CB.Visible = True
End If
If CB.Name = "Formatting2" Then
CB.Visible = True
Else
CB.Visible = False
End If
End With
End If
End If
Next CB</pre>
This message was edited by em on 2003-02-09 17:23