Sheet Name Combo Box

[jessi81882]

Hi

I want to create a combo box (or anything with hyperlinks) that will list all active sheets in a workbook. This could alter as I have another macro that allows the user to add a new sheet so you could have Continuation(2) all the way to Continuation(100). But I need this macro to ignore hidden sheets as I have an Admin Sheet hidden which contains all the data for behind the scenes in my workbook.

Can anyone help?

 

[AtlantaAccessAndExcel]

This code will add to a listbox. I am not sure I understand the hyperlink requirement, but you can modify the code to list the sheets on 'navigation' sheet within your workbook or to a combo box..

    SheetCount = ThisWorkbook.Worksheets.Count
    For m = 1 To SheetCount
        MyName = ThisWorkbook.Sheets(m).Name
        If MyName <> "Name I Want to Skip" Then 
             Me.lstMyListBox.AddItem MyName
        End if
    Next

Mark