Macro drop down list to select the next sheet tab

I am trying to create a macro with a drop down list that will take me to the next selected sheet. I do have an input box macro attached, but would like to add a drop down list of avaiable sheets. Thanks Rick

Sub LOI_Num()
'
' LOI_Num Macro
' Macro recorded 12/22/2009 by SCJ User
'
' Keyboard Shortcut: Ctrl+l
'

    

Dim strsheet As String
' dim i as integer

strsheet = Application.InputBox("put sheet name", "Sheet Name Select", , , , , , 2)

' you can put 1 instead of 2 in inputbox for number if you wanna select for 'index in that case
' your code will be
' with thisworkbook.worksheets(i)
'.select
'.activate
'end with
' i suggest to select by name it is easy ..atleast for me


With ThisWorkbook.Worksheets(strsheet)
.Select
.Activate
End With


End Sub