R
R Avery
Sub dslghlkshgl()
Dim CB As CommandBar, i As Long
i = 5
For Each CB In CommandBars
If CB.Type = msoBarTypePopup Then
Debug.Print CB.Name
CB.ShowPopup
'Sleep 3000
'Cells(i, 1) = CB.Name
i = i + 1
End If
Next
End Sub
Dim CB As CommandBar, i As Long
i = 5
For Each CB In CommandBars
If CB.Type = msoBarTypePopup Then
Debug.Print CB.Name
CB.ShowPopup
'Sleep 3000
'Cells(i, 1) = CB.Name
i = i + 1
End If
Next
End Sub