Hi Steve,

Try code posted by Jim Rech:

'==================
Sub ShowSheetList()
'Jim Rech
On Error Resume Next
If ActiveWorkbook.sheets.Count <= 16 Then
Application.CommandBars("Workbook Tabs"). _
ShowPopup 500, 225
Else
Application.CommandBars("Workbook Tabs"). _
Controls("More Sheets...").Execute
End If
On Error GoTo 0
End Sub
'<<==================


---
Regards,
Norman


"Steve" wrote in message
...
Is there a way to have a dropdown item on a spreadsheet that will update
the
dropdown list everytime it is selected to obtain the name of each tab in a
spreadsheet?