Have a large workbook and placing a menu to manuever around. I want to base
the menu list off a cell range. Names may change. I cant figure this out

Dim myMnu As Object

Set myMnu = CommandBars("Worksheet menu bar").Controls. _
Add(Type:=msoControlPopup, befo=2)

With myMnu
.caption = "&Volunteers"
.Controls.Add(Type:=msoControlButton, befo=1).caption =
Sheet1.Range("m21")
..Controls(Sheet1.Range("m21")).OnAction = "Vol1" (blows out here)
End with

The values match. I have created menus for successfully with the same code
with the exception of using the range ie caption ="text" ....
..controls("text).OnAction etc
Where am I going wrong. MUCH thanks in advance