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

Try this:

Copy a cell.
Now find the Paste Icon on the standard toolbar (looks like a clipboard).

There's a dropdown arrow next to this icon (new in xl2002????).

Click on that dropdown arrow and you'll see some choices you get via this popup.

R Avery wrote:

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

--

Dave Peterson

Thanks!

Dave Peterson wrote:
Try this:

Copy a cell.
Now find the Paste Icon on the standard toolbar (looks like a clipboard).

There's a dropdown arrow next to this icon (new in xl2002????).

Click on that dropdown arrow and you'll see some choices you get via this popup.

R Avery wrote:

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