John,
if you are just trying to make a POPUP to make sheet selection easier, have
play with this bit of code & see if helps you.

Sub SelectSheet()
If ActiveWorkbook.Sheets.Count <= 16 Then

Application.CommandBars("Workbook Tabs").ShowPopup 500, 225

Else

Application.CommandBars("Workbook Tabs").Controls("More
Sheets...").Execute

End If

End Sub
--
jb


"John" wrote:

I'm trying to make a 2 column list box, filled with sheet names. I have 72
sheet tabs in my workbook, and would like to make a simple "go to" out of
the 2 column list box, where you click on the sheet name and it selects the
sheet. (I'd like half the sheet names on the left, the other half on the
right). I appreciate any help