very elegant! i'll keep that.


keepITcool

< email : keepitcool chello nl (with @ and .)
< homepage: http://members.chello.nl/keepitcool


"Ron de Bruin" wrote:

Sub SheetList_CP()
'Chip Pearson, 2002-10-29, misc.
On Error Resume Next
Application.CommandBars("Workbook Tabs").Controls("More
Sheets...").Execute Application.CommandBars("Workbook
Tabs").ShowPopup On Error GoTo 0
End Sub